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IS  ABSTRACT 


An  interactive  program  complex  that  can  be  used  in  a  scenario  for  managerial 
studies  of  operational  standards  is  described.  The  scenario  is  based  on  aircraft 
maintenance  and  flight  data  obtained  from  the  Naval  3-M  (Maintenance  and  Material 
Management)  System.  The  scenario  simulates  the  data  selection  and  processing  that  a 
manager  needs  when  he  is  seeking  to  establish  standards  relating  operational  use  of 
the  aircraft  under  certain  circumstances  to  maintenance  actions. 

The  design  of  the  program  complex  has  some  interesting  features.  Emphasis  has 
been  given  to  the  use  of  a  dialogue  mode  of  interaction,  so  that  effective  use  of  the 
system  does  not  depend  on  programming  expertise  by  the  user.  Also,  there  is  a  clear 
separation  of  the  command  input  phase  from  the  data  processing  phase,  with  only  the 
appropriate  computer  facilities  being  used  in  each  phase.  The  interface  between  these 
two  subsystems  illustrates  an  effective  means  of  transfer  between  such  subsystems. 

Another  concept  which  is  believed  to  be  important  is  that  of  a  "satellite"  pror 
gram.  Properly  speaking,  a  satellite  program  is  not  o  program  at  all — it  will  not  r 
by  itself  with  any  input.  It  acts,  rather,  to  modify  the  main  program  to  which  it  is 
a  satellite.  To  facilitate  the  design  of  satellites,  emphasis  is  given  to  the  identi¬ 
fication  of  ’switch  nodes"  in  the  main  program.  A  rigorous  discipline  is  enforced  tha 
requires  all  actions  that  specifically  accumulate,  process,  or  output  data  be  done 
only  from  these  switch  nodes.  This  discipline  clarifies  the  functions  of  the  several 
sections  of  the  main  program,  and  t 
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<  ■  added  by  the  satellites.  It  is  effective  in  enhancing  the  quality  of "open-endedness, 
making  it  relatively  easy  to  add  new  satellites  as  the  need  arises, 
pi  Finally,  there  is  discussed  a  list  of  possible  extensions  and  modifications 

r  of  the  complex,  ranging  from  those  that  only  involve  minor  details  to  those  that 
vv  concern  major  questions  of  direction  and  structure.  The  relationships  of  these 
modifications  to  the  overall  objectives  of  the  research  program  are  considered. 
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ABSTRACT 


An  interactive  program  complex  that  can  be  used  in  a  scenario  for 
managerial  studies  of  operational  standards  is  described.  The  scenario 
is  based  on  aircraft  maintenance  and  flight  data  obtained  from  the  Naval 
3-M  (Maintenance  and  Material  Management)  System.  The  scenario  simulates 
the  data  selection  and  processing  that  a  manager  needs  when  he  is  seeking 
to  establish  standards  relating  operational  use  of  the  aircraft  under 
certain  circumstances  to  maintenance  actions. 

The  design  of  the  program  complex  has  some  interesting  features. 
Emphasis  has  been  given  to  the  use  of  a  dialogue  mode  of  interaction,  so 
that  effective  use  of  the  system  does  not  depend  on  programming  expertise 
by  the  user.  Also,  there  is  a  clear  separation  of  the  command  input  phase 
from  the  data  processing  phase,  with  only  the  appropriate  computer  facili¬ 
ties  being  used  in  each  phase.  The  interface  between  these  two  subsystems 
illustrates  an  effective  means  of  transfer  between  such  subsystems. 

Another  concept  which  is  believed  to  be  important  is  that  of  a 
"satellite"  program.  Properly  speaking,  a  satellite  program  is  not  a 
program  at  all — it  will  not  run  by  itself  with  any  input.  It  acts, 
rather,  to  modify  the  main  program  to  which  it  is  a  satellite.  To  facili¬ 
tate  the  design  of  satellites,  emphasis  is  given  to  tne  identification  of 
switch  nodes"  in  the  main  program,  A  rigorous  discipline  is  enforced 
that  requires  all  actions  that  specifically  accumulate,  process,  or  output 
data  be  done  only  from  these  switch  nodes.  This  discipline  clarifies 
the  functions  of  the  several  sections  of  the  main  program,  and  the  inter¬ 
action  of  those  sections  with  the  code  aeded  by  the  satellites.  It  is 
effective  in  enhancing  the  quality  of  "open-endedness,"  making  it  rela¬ 
tively  easy  to  add  new  satellites  as  the  need  arises. 

Finally,  there  is  discussed  a  list  of  possible  extensions  and 
modifications  of  the  complex,  ranging  from  those  that  only  involve  minor 
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details  to  those  that  concern  major  questions  of  direction  and  structure. 

The  relationships  of  these  modifications  to  the  overall  objectives  of  the 
research  program  are  considered. 
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I  INTRODUCTION 


A.  General 

Stanford  Research  Institute  is  conducting  a  broad  program  of  research 

i  1  1 

into  large  file  systems  that  will  provide  effective  support  for  Naval  Managers 
in  the  exercise  of  their  responsibilities.  The  objective  of  this  program 

i  i  1 

is  to  determine  design  principles  that  will  enable  the  construction  of 
operational  systems  that  will  be  much  more  effective  thun  are  any  existing 

i  •  • 

systems . 


Technical  Report  1,  entitled  "Large  File  Management  Information  Sys¬ 
tems,"  issued  September  1971,  discusses  in  general  terms  the  properties 
and  capabilities  that  an  effective  management  support  system  should  have. 
It  alsp  specifies  a  number  of  areas  within  which  research  is  needed.  In 
that  report,  we  recognized  that  the  research  efforts  should  include  con- 

i 

structinga  dath  system  on  which  one  or  more  scenarios  can  bo  executed. 

It  was  believed  that  this  system  should  be  based  on  real  data,  and  that 
each  scenario  should  illustrate  some  specific  area  of  real  managerial 

i 

concern. 

This  report  describes  the  data  system  that  we  have  established  based 

I 

on'  maintenance  and  operational  data  on  Naval  aircraft  obtained  from  the 

i 

3-M  (Maintenance  and  Material  Management)  System.  It  is  designed  to  exe¬ 
cute  scenarios  that  will  illustrate  the  managerial  activity  of  developing 
operational  standards  and  monitoring  conformance  to  them. 

Subsequent  sections  describe  the  system  at  various  levels  of  detail, 
discuss  the  significance  of  what  has  been  accomplished,  and  discuss  vari¬ 
ous  possibilities  for  further  development. 

13.  Objectives 

The  objectives  of  the  scenario  are  us  follows: 

I 

(1)  To  demonstrate  the  possibility  of  the  type  of  facility 

I 

considered,  and  to  provide  moans  through  which  potential 
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users  of  such  a  facility  can  assess  its  relevance 
to  their  needs. 

(2)  To  Keep  the  general  research  program  "grounded"  in 
problems  of  managerial  importance  with  actual  data, 
and  thereby  to  develop  better  understanding  of  the 
realities  of  the  managerial  process. 

(3)  To  identify  tho  factors  that  are  present  In  achieving 
multilevel  operation  and  in  obtaining  stable  performance 
with  it.  This  will  provide  n  necessary  basis  for  con¬ 
sidering  adaptive  behavior  within  any  given  level. 

(4)  Similarly,  to  identify  the  factors  present  in  multi¬ 
functional  operation.  Again,  this  provides  a  basts 
for  studying  adaptivity,  since  such  divisions  limit 
the  scope  of  an  adaptive  process  within  a  norizontal 
level. 

(5)  To  consider  how  to  obtain  programming  "open-ondedness " 
so  that  the  range  of  use  of  u  facility  can  be  extended 
with  minimal  effort  and  confusion.  This  objective  is 
closely  related  to  the  functional  separation  cited  above 
since  functional  divisions  limit  the  extent  of  possible 
interference  as  new  functions  are  added. 

(6)  To  provide  a  foundation  for  a  more  extensive  system  to 
serve  as  a  vehicle  for  the  general  program  of  research 
on  management  support  systems.  This  objective  includes 
a  number  of  areas  i'or  research  such  as  the  need  for 
linguistic  capabilities  in  interaction,  model  building 
and  study,  adaptive  file  organization  and  utilization, 


and  others. 


II  THE  SCENARIO 

This  section  describes  too  managerial  problem  that  is  involved,  and 
the  spccil'tc  context  in  which  it  is  considered. 

The  general  area  is  that  of  developing  operational  standards  on  the 
basi9  of  historical  evidence  and  monitoring  subsequent  performance.  The 
basic  assumption  is  that  the  responsibility  of  the  manager  includes  over¬ 
seeing  the  maintenance  and  use  of  some  type  or  typc3  of  complex  equipment. 
The  specific  context  considered  is  the  naval  manager  who  is  directly  re¬ 
sponsible  for  maintenance  and  use  of  certain  aircraft — specifically  I’d-, I 
aircraft. 

We  assume  the  existence  of  dated  records  of  maintenance  actions  and 
of  the  use  of  equipment  of  the  type  involved.  In  the  specific  context, 
we  use  a  subset  of  the  records  for  naval  aircraft  from  the  3-M  (Maintenance 
and  Material  Management)  System.  Specifically,  we  use  the  data  reported 
on  code  71,  76,  and  79  cards  reporting  maintonuneo  actions,  flights,  and 
monthly  summary  cards. 

We  assume  that  the  manager  is  concerned  with  standards  that  relate 
operational  use  of  the  equipment  to  maintenance  actions.  For  example,  he 
may  be  concerned  with  the  time  between  maintenance  actions  or  some  classes 
of  actions.  Alternatively,  he  may  be  concerned  with  expected  operational 
time,  or  the  number  of  occurrences  of  certain  operational  events.  From 
the  data  base  employed  here,  the  manager  might  determine,  for  example,  the 
total  flight  time  that  can  be  expected  to  accumulate  before  the  recurrence 
of  a  certain  class  of  maintenance  actions.  Similarly,  he  might  bo  con¬ 
cerned  with  the  number  of  landings,  the  number  of  arrested  landings,  or 
some  other  factor. 

Broadly  speaking,  tile  process  of  establishing  a  standard  from  histori¬ 
cal  evidence  starts  from  a  hypothesis  of  the  existence  of  some  typo  of  pat¬ 
tern  in  time.  The  user  tests  the  hypothesis  against  the  data  (or  some 
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part  of  it),  adjusting  the  parameters  of  the  hypothesis  os  appropriate. 
Discrepancies  arc  investigated  to  determine  whether  they  are  atypical  (and 
therefore  ignorablc)  or  indicate  need  for  adjustment  or  revision  of  the 
hypothesis.  This  cycle  may  be  repeated  as  many  times  os  appropriate. 

On  the  other  hand,  the  monitoring  of  a  standard  entails  the  testing 
of  new  data  against  the  standard  to  identify  exceptional  instances.  As  a 
subsequent  step,  the  identified  instances  m.iy  be  investigated  to  determine 
whether  they  require  individual  action,  or  whether  they  suggest  the  need 
for  revision  of  the  standard. 

It  is  assumed  that  the  manager-user  does  not  have  expertise  in  pro¬ 
gramming.  Furthermore,  insofar  as  possible, it  is  desirable  to  minimize 
the  demand  for  any  prior  knowledge  of  the  system  or  of  how  to  make  use  of 
it.  On  the  other  hand,  we  also  recognize  the  need  for  allowing  flexibility 
of  use  by  a  user  who  may  have  programming  expertise  and  who  may  make  use 
of  the  "open-endedness"  that  has  been  a  major  functional  goal  of  the 
scenario  development,  as  will  be  discussed  later. 

In  the  particular  context  of  the  scenario,  the  entire  range  of  capa¬ 
bilities  suggested  here  has  not  yet  been  implemented.  The  operating  goal 
has  been  to  demonstrate  the  general  type  of  capability  required,  rather 
than  to  exhaust  the  possibilities  of  this  type  of  application.  Since  one 
functional  goal  of  the  scenario  has  also  been  to  achieve  programmatic 
"open-endedness",  it  does  provide  a  foundation  on  which  a  complete  system 
for  the  analysis  of  standards  could  be  built. 


) 

III  GENERAL  APPROACH 

A .  Introduction 

This  scenario  has  been  developed  on  the  basis  of  the  following 
viewpoint : 

•  It  is  an  interactive  system,  i.e.,  it  presumes  that  the 
user's  requirements  for  information  will  be  modified  as 
the  system  responds  and  that  the  user  will  want  to  enter 
his  modified  requirements  immediately.  We  believe  this 
to  be  very  important  during  the  time  when  the  manager  is 
first  developing  his  concepts,  and  the  absence  of  this 
quality  is  a  serious  lack  in  most  existing  managerial  in¬ 
formation  systems. 

•  We  are  not  here  addressing  problems  of  data  entry  or  vali¬ 
dation.  We  acknowledge  the  importance  of  these  problems, 
but  have  not  sought*  to  include  them  in  the  scenario. 

•  We  are  not  addressing  problems  of  communicating  with  other 
systems  or  data  files.  Such  problems  may  be  considered 
later  as  we  expand  the  range  of  the  scenario. 

•  We  give  primary  attention  to  the  highest  level  user  who 
is  likely  to  be  concerned  with  the  subject  of  the  scenario- 
in  this  case,  specific  operational  standards.  This  user 
has  the  most  subtle  and  difficult  problem.  We  believe 
that  a  system  that  can  serve  him  effectively  is  likely  to 
be  useful  also  to  a  lower-level  manager  whose  responsi¬ 
bilities  are  of  a  more  detailed  nature,  while  the  converse 
is  not  likely  to  be  true. 

Tne  general  configuration  of  the  system  as  it  currently  exists  is 
outlined  in  Figure  1,  which  exhibits  the  components  of  what  we  call  the 
"program  complex." 


I - - -I 
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FIGURE  1  Program  complex 
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Three  levels  of  programs  are  distinguished,  plus  a  fourth  lovel 
that  includes  the  actual  data  in  the  various  files  and  file  directories. 

The  top  level  is  labeled  "User  Introduction."  This  lovol  provides  the 
user  with  a  general  introduction  to  the  system  if  he  needs  it.  It 
tells  him  what  can  be  done  with  the  system  and  the  mechanics  that  he 
needs  to  know  to  use  it.  This  level  can  be  bypassed  if  the  user  is 
already  familiar  with  the  system. 

The  next  level  is  labeled  "interactive  Command  Input."  The  basic 
function  here  is  to  develop  in  detail  what  information  the  user  wants. 

This  is  not  simply  a  matter  of  entering  the  command.  It  includes  pro¬ 
vision  for  modifying  the  current  command  so  that  the  user  can  conveniently 
execute  a  linked  series  of  interrogations.  It  also  includes  provision 
for  displaying  a  concise  summary  of  the  current  command,  and  for  saving 
the  current  command  when  desired.  Finally,  it  includes  means  by  which 
a  previously  saved  command  can  be  reentered. 

The  third  level  actually  executes  the  command,  processing  the  data 
retrieved  from  the  data  files  as  required. 

These  levels,  and  the  components  that  make  them  up  are  discussed 
in  detail  in  the  following  subsections. 

B .  /STANDARDS/ 

Use  of  the  complex  is  initiated  by  calling  /STANDARDS/.  This  offers 
the  user  the  option  of  having  printed  out  a  fairly  detailed  description 
of  how  he  can  use  the  complex .  However,  he  may  bypass  this  printout  if 
he  desires. 

It  would  be  desirable  also— although  not  yet  done — to  include  here 
the  option  of  calling  for  a  more  technical  description  of  the  complex 
including  such  matters  as  what  data  are  available  and  what  options  can 
be  employed.  It  might  be  desirable  to  provide  two  or  more  such  descriptions 


at  successively  greater  depth  of  technicality  that  can  be  called  up  or 
not  by  the  user.  Thore  would  be  no  difficulty  in  providing  any  desired 
options  here. 


/STANI&RDS/  also  sets  some  of  the  initializations  required— e  .g . , 
dimensionality  of  the  control  vector  of  standard  formats. 

C.  /INTERROGATION/ 

Upon  completion,  /STANDARDS/  links  to  /INTERROGATION/.  The  link 
command  that  is  available  in  the  programming  language  used  (Super-Basic) 
clears  the  current  program  while  retaining  data  and  variable  assignments, 
loads  the  called  program,  and  starts  execution.  These  programs  are, 
therefore,  handled  as  "coprograms,"  as  are  /SUMMARY/  and  /EXECUTE/ 

(to  be  discussed  shortly).  In  Figure  1,  this  kind  of  transfer  is 
indicated  by  a  solid  arrow. 

/INTERROGATION/  first  asks  if  the  user  wants  to  use  a  previously 
saved  command.  If  so,  the  program  links  to  /DATAENT/,  as  will  be 
discussed.*  If  the  user  does  not  want  a  previously  saved  command, 
/INTERROGATION/  then  conducts  a  dialogue  with  him  to  establish  his 
command. 

A  typical  sequence  is  shown  in  Figure  2,  the  exact  sequence  of 
questions  depends  on  the  responses  given.  The  user-generated  responses 
are  underlined  in  the  figure. 

We  have  chosen  the  multiple-choice  form  of  input  to  avoid  either 
requiring  the  user  to  know  a  set  of  precise  formatting  conventions,  or 


* 

The  system  can  also  be  entered  directly  through  /DATAENT/,  eliminating 
these  preliminary  steps.  However,  inclusion  of  this  option  here  allows 
the  user  to  switch  to  a  saved  command  at  appropriate  times  during  a 
sequence  of  processing  without  quitting  and  reentering  the  system. 
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♦♦••FLIGHT  STANDARDS ♦♦♦♦ 


IF  YOU  NEED 
BY  THE  RETURN 


DETAILED  INSTRUCTIONS*  TYPE  *  I  *  FOLLOWED 
KEY >  ELSE  TYrC  'O'  AND  RETURN*  ?  g 


♦  ♦COMMAND  INPUTS 


DO  YOU  WANT  TO  ENTER  I 

1.  A  NEW  COMMAND. 

2.  A  PREVIOUSLY  SAVED  COMMAND?  j 

(A)  WHAT  TYPE  OF  AIRCRAFT  DO  YOU  WANT  TO  CONSIDER?  AFPH 

CB>  DO  YOU  WANT  TO  CONSIDER 
l*  ALL  A/C  OF  TYPE  AFPH* 

2*  CERTAIN  A/C  OF  TYPE  AFPH?  Z 

HOW  MANY  A/C  DO  YOU  WANT  TO  LIST?  3 
LIST  THE  A/C  DESIRCDl 
?  1 53808* I  55003* 1 55790 

CC)  DO  YOU  WANT  TO  CONSIDER 

1.  ALL  SOUADRONS. 

2.  CERTAIN  SOUADRONS?  2 

HOW  MANY  SOUADRONS?  2 
LIST  THE  SOUADRONS  DESIRCDl 
T  ACT.PCt 

CD)  WHAT  TIME  PERIOD  DO  YOU  WANT? 

TYPE  THE  JULIAN  DATES*  SEPERATED  BY  COMMAS*?  0240*1020 
DO  YOU  WANT  THE  FINAL  EVENTS  TO  BEl 

1.  ENDED  0N/8EF0RE  THE  FINAL  DATE. 

2.  STARTED  ON/BEFORE  THE  FINAL  DATE?  1 

CE)  MBW  ARE  EVENTS  TO  BE  DEFINED? 

1*  BY  ANY  UUC • 

2*  BY  A  PARTICULAR  SET  OF  WUC  CODES. 

3.  BY  ANY  WUC  EXCEPT  A  PARTICULAR  SET?  3 

HOW  MANY  CODES  DO  YOU  WANT  TO  LIST?  2 
LIST  THE  CODES  TO  BE  EXCLUDED) 

?  1 4240 *30000 

CF)  DO  YOU  WANT  TO  LIMIT  ATTENTION  TO  EVENTS  MEETING  SOME  CONDITION? 
1*  YES. 

2.  NO?  i 

DOES  THE  CONDITION  APPLY  TO* 

t.  THE  NUMBER  OF  PLIGHTS  IN  THE  EVENT. 

2.  THE  NUMBER  OF  LANDINGS  IN  THE  EVENT. 

3.  THE  FLIGHT  TIME  IN  THE  EVENT?  2 
DO  YOU  WANT) 

I .  ALL  LANDINGS. 

2*  ONLY  CERTAIN  LANDING  CODES  CONSIDERED. 

3.  ALL  EXCEPT  CERTAIN  LANDING  CODES?  3 

HOW  MANY  LANDING  CODES?  2 

LIST  THE  LANDING  COOES  INVOLVED! 

?  E.F 

WHAT  IS  THE  RESTRICTION? 

THE  OPERATORS  ■.«*».<>»<■. MAY  BE  USED. 

THE  FORM  OF  THE  INPUT  SHOULD  BE.E.G. «  X*3.25. 

IF  TIME  IS  INVOLVED*  USE  DECIMAL  HOURS. 

SA-1031-33 


FIGURE  2  Command  input 
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I  K,»"g. 


(6)  WHAT  DATA  IS  TO  SC  OUTPUTTED? 

I.  A  LIST  OF  EVENTS* 

C.  A  LIST  OF  CSUNTS 

3*  A  LIST  OF  ACCUMULATED  DURATIONS. 

4*  A  LIST  «r  AVERAGE  CSUNTS. 

S.  A  LIST  0 F  AVERAGE  DURATIONS?  S 
WHAT  AVERAGE  DS  YSU  WANT! 

I*  THE  AV*  FLT  OUR.  PER  EVENT  FOR  ALL  EVENTS. 

2.  THE  AV.  FLT  OUR.  PER  EVENT  FOR  EACH  A/C. 

3.  THE  AV*  FLT  OUR.  PER  EVENT  F0R  EACH  SOUADR0N. 

4*  THE  AV*  FLT  OUR.  PER  EVENT  FOR  EACH  A/C  IN  EACH  SO. 

3.  THE  AV*  DURATION  0F  EVENTS  FOR  EACH  A/C. 

6 .  THE  AV*  DURATION  0F  EVENTS  FOR  EACH  SQUADRON. 

T.  THE  AV*  DURATION  OF  EVENTS  FOR  EACH  A/C  IN  EACH  SO. 

0.  THE  AV.  DURATION  OF  EVENTS  FOR  ALL  EVENTS?  4 

00  YOU  WANT  TO  INCLUDE I 

1.  ALL  FLIGHT  CODES. 

2.  ONLY  CERTAIN  FLIGHT  CODES. 

3.  ALL  EXCEPT  CERTAIN  FLIGHT  CODES?  3 
HOW 'MANY  COOES?  4. 

LIST  THE  FLIGHT  CODES  INVOLVED! 

?  4A0.3F0.3A3.3A6 


DO  YOU  WANT  TOt 
1.  EXECUTE* 

e.  ENTER  A  NEW  CONHAND. 

3.  MODIFY  THE  PRESENT  COMMAND. 

4.  SEE  A  SUMMARY  OF  THE  PRESENT  COMMAND. 

5.  SAVE  THE  PRESENT  COMMAND. 

6.  END?  ± 

SA-1M1-23. 


FIGURE  2  Command  input  (Concluded) 
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having  to  use  extensive  syntactic  and  semantic  analysis  on  a  free 
form  response.  (A  small  amount  of  syntactic  analysis  is  required 
if  a  restriction  is  entered  in  Section  F.) 

Some  of  the  sections  are  trapped.  Section  A,  type  of  aircraft, 
will  accept  only  the  response  "AFPH."  Any  other  response  causes  the 
program  to  print  out  that  it  has  no  data  on  the  type  specified,  and  that 
it  only  has  AFPH;  it  then  asks  for  a  new  input.  Similarly,  Section  B 
will  accept  only  153808,  155903,  and  155799,  which  are  the  aircraft  for 
which  files  have  been  established.  Section  C  will  accept  only  AC1, 

AC7,  and  PCI,  the  codqs  for  the  organizations  with  which  the  aircraft 
listed  were  associated  during  the  time  span  of  the  data.  (Note  that  we 
could  equally  have  used  the  more  usual  squadron  designations.  We  used 
these  codes  simply  because  they  were  available  to  us.)  Finally  the 
dates  in  Section  D  are  trapped  to  ensure  that  they  are  four-digit  numbers, 
that  they  are  in  proper  order,  and  that  they  are  in  the  range  0213  to 
1201,  inclusive.  In  each  case,  a  trapped  response  causes  a  printout 
of  the  acceptability  conditions,  and  then  asks  for  a  new  input. 

In  Section  E  the  user  defines  what  he  wants  for  an  ''event.”  As 
presently  permitted,  an  event,  is  defined  as  extending  from  the  completion 
of  one  of  the  designated  maintenance  actions  (as  indicated  by  the  WUC 
code)  to  the  start  of  the  next  for  a  given  aircraft,  providing  something 
interesting  happened  in  between— i.e.  a  flight  or  a  nondesignated  main¬ 
tenance  action.  The  maintenance  actions  of  interest  can  be  designated 
either  by  listing  the  desired  actions,  or  by  listing  the  ones  that  are 
not  to  be  considered. 

The  options  involved  in  Section  E  probably  should  be  extended  to 
include  the  category  number  (Cat.  No.).  No  difficulty  would  be  encountered 
in  doing  so . 
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Section  F  asks  if  there  is  some  particular  condition  that  should 


be  applied  to  events.  For  example,  the  user  might  want  to  restrict 
at;  .  <n  only  to  events  that  include  at  least  one  carrier  landing. 

Or  tu  ight  be  interested  in  events  that  are  at  least  24  hours  long. 

Section  F  allows  the  user  to  test  directly  the  validity  of  r 
hypothesized  standard,  or  to  have  listed  for  him  exceptions  to  a  given 
standard.  Thus,  it  is  critical  to  the  basic  concept  of  the  scenario. 

It  should  be  noted  that  the  restriction  is  quite  independent  of 
the  data  output  specified  in  Section  G,  For  example,  the  restriction 
can  apply  to  the  number  of  landings  while  the  output  concerns  total 
flight  time  or  event  duration. 

Most  of  Section  F  is  concerned  with  identifying  what  is  to  be  the 
restriction  variable.  The  final  question  allows  the  user  to  enter  his 
actual  condition  as  an  algebraic  expression. 

The  final  section,  G,  then  asks  the  user  to  specify  what  output  he 
desires.  He  has  the  option  of  specifying  a  list  of  events,  counting 
occurrences,  accumulating  durations,  or  calculating  average  counts  or 
durations.  Depending  on  his  response,  quite  different  trees  of 
questions  lead  to  identification  of  exactly  what  is  wanted. 

Following  completion  of  this  input  operation,  the  user  is  asked 
what  he  wants  to  do  next.  If  he  calls  for  a  summary,  the  program  links 
to  /SUMMARY/.  If  he  calls  for  execution,  it  links  to  /EXECUTE/.  If  he 
wishes  to  save  his  current  command,  it  links  to  /SA'^ESUMM/.  Otherwise, 
it  either  ends  or  loops  appropriately  within  /INTERROGATION/. 

D.  /SUMMARY/ 

If  the  user  calls  for  a  summary,  the  program  links  to  /SUMMARY/, 
which  prints  out  the  current  command  in  a  concise  form.  Figure  3  shows 
the  printout  for  the  input  of  Figure  2. 


•♦SUMMARY** 


A.  TYPE  ■  AFPH 

B.  AIRCRAFT  NUMBERED I 

I  53808 
i 5S903 
155790 

C.  S6UADR8NS  NUMBER  I 

AC7 
PC  t 

D.  TIME  INTERVAL* 

STARTING  DATE  •  OSAO 
TERMINAL  DATE  ■  1020 

ONLY  EVENTS  ENDING  BN/BEF0RE  TERMINAL  DATE  INCLUDED. 

E.  AN  • EVENT*  IS  DEFINED  BY  I 

ANY  VUC  CODE  EXCEPT  THE  FOLLOWING I 
748  AO 
30000 

E.  THE  DATA  IS  RESTRICTED  BYl  X»S 

WHERE  X  IS  THE  NUMBER  OF  LANDINGS  IN  AN  EVENT. 

THE  LANDINGS  APPLICABLE  HERE  INCLUDE  ALL  EXCEPT  THE  FOLLOWING  CODESl 
C#  F. 

G»  THE  OUTPUT  IS  TO  BE* 

THE  AVERAGE  FLIGHT  DURATION  PER  EVENT  FOR  ALL  EVENTS* 

ALL  FLIGHT  CODES  EXCEPT  THE  FOLLOWING* 

AAO*  3F0*  3A3*  3A«. 

♦♦END  OF  SUMMARY** 

ARE  YOU  READY  TO  EXECUTE 7 

1.  YES. 

2.  NO 

?  a 

00  YOU  WANT  TO I 

1.  EXECUTE. 

2.  ENTER  A  NEW  COMMAND. 

3.  MODIFY  THE  PRESENT  COMMAND. 

A.  SEE  A  SUMMARY  OF  THE  PRESENT  COMMAND. 

5.  SAVE  THE  PRESENT  COMMAND. 

6.  END7  3 

WHICH  SECTION  DO  YOU  WANT  TO  CHANGE? 

TYPE  THE  APPROPRIATE  LETTER--  ONE  ONLY?  G 


FIGURE  3  Summary  printout  and  return  to  /INTERROGATION/ 


At  the  completion  of  this  printout,  the  user  is  asked  if  he  is 
ready  to  execute  the  command.  If  so,  the  program  links  to  /EXECUTE/.' 

If  not,  it  links  back  to  /INTERROGATION/,  passing  immediately : to  the 
section  that  offers  the  principal  user  options,  as  illustrated  at  the 
bottom  of  Figure  3 . 

Figure  3  also  illustrates,  at  the  bottom,1  what  happens  in 
/INTERROGATION/  when  the  user  decides  to  modify  the  current  command. 

He  is  then  asked  which  section  he  wants  to  modify.  He  is  then  returned 
to  the  indicated  part  of  the  command  input.  This  cycle  can  berepeuted 
as  often  as  desired. 

Upon  returning  to  /INTERROGATION/  after  either  execution  or 
/SUMMARY/,  if  the  user  opts  for  entering  a  new  command,  the  first  question 
is  that  shown  at  the  top  of  Figure  2  asking  if  he  wants  a  previously 
saved  command.  He  might  wish  to  do  so,  for  example,  if  this  returns 
him  to  his  starting  point,  or  if  some  other  saved  command  is  a  (pore  con¬ 
venient  one  to  modify  into  what  he  wants  to  do  next . 

•  I 

E .  / SAVESUMM/  and  DATAENT/  i 

There  are  also  two  small  additional  programs  in  the  interactive 
level.  The  first  is  /SAVESUMM/  (for  "save  summary”)  to  which  we  can' 
link  from  /INTERROGATION/.  This  program  sets  up  a  data  file1  that  saves 
the  data  and  variable  assignments  of  his  current  command  in  a  file  named 
by  the  user.  It  is  trapped  against  the  user  calling  for  the  name  of 
any  of  the  programs  in  the  complex.  If  he  wishes,  the  user  may  return 
to  /INTERROGATION/  after  saving  the  current  command. 

The  other  program  is  /DATAENT/  (for  "data  enter").  It  can  be 
called  initially  or  from  /INTERROGATION/.  It  asks  for  the  name  of  a 
data  file  previously  established  under  /SAVESUMM/  and  reinitializes 
with  the  saved  command.  The  user  is  then  given  the  choice  of  linking 
to  /INTERROGATION/  to  modify  the  command,  to  /SUMMARY/  to  see  it,  or  to 

j 

/EXECUTE/  to  execute  it. 


F.  1  The  Processing  Complex 


So  far  the  complex  has  been  concerned  with  the  interrogation  input. 

No  files  have  been  opened,  no  data  processed, 'no  computations  performed. 

The  only  computer  facilities,  that  have  been  claimed  have  been  those 

i 

necessary 'for  the  dialogue.  Once  the  interrogation  has  been  entered 
and  execution  called  for,  control  links  to  /EXECUTE/  and  the  system 
shifts  to  its  processing  mode.  It  will  stay  in  this  mode  until  execution 
.is  complete,  when  it  will  return  to  /INTERROGATION/  jumping  to  the  main 
control  question. 

/EXECUTE/  has  associated  with  it  a  number  of  quasi-programs  that  we  call 
its  "satellites."  These  are  not  programs  or  subprograms  in  any  normal 

l  1 

sense  of  these-  'terms .  They  will  not  operate  by  themselves  with  any 

input.  They  are  intended,  instead,  to  overlay  /EXECUTE/  and  to  modify 

!  ' 

its  operation.  1 

The  basic  unit  of  search  is  the  "event."  In  general,  this  is 
defined  as  the  .period  between  the  completion  of  a  designated  maintenance 

i  • 

action  on  an  aircraft  to  the  start  of  another,  providing  this  period 
includes  some  significant  occurrence— -either  some  undesignated  main¬ 
tenance  action  or  one  or  more  flights.  The  maintenance  actions  that 
determine  an:  event  are  specified  by  the  user  as  part  of  his  command 
input.  He  can  further  modify  what  events  are  to  be  considered  by  im¬ 
posing  a  restriction  on  the  occurrences  within  them. 

The  determination  of  events  is  basic  to  all  allowed  commands.  The 

satellite  programs,  therefore,  do  not  affect  the  recognition  of  events 

» 

(except  for  /RESTRICT/,  as  discussed  below)  but;  modify  the  data  output 
or  accumulation,  and  the  format  of  the  output.  It  is  the  commonality 
of  the  process  of  lpcating  events  that  makes  the  device  of  satellite 
programs  a  useful  one  here. 
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/EXECUTE/  manipulates  the  data  files  and  directories  and  determines 
the  events.  If  not  modified  by  a  satellite,  its  output  lists  the  starting 
and  ending  dates  and  times  of  all  qualifying  events.  It  checks  the 
aircraft  and  squadron  numbers  against  the  command  to  determine  what  data 
files  should  be  opened.  It  runs  through  a  file  until  the  starting  date 
has  been  passed.  It  checks  the  WUC  code  against  the  command  to  determine 
the  limits  of  an  event.  Finally,  it  checks  either  the  beginning  or  end 
date  of  an  event,  as  commanded,  against  the  terminal  date  of  the  command. 

This  procedure  is  a  common  requirement  for  all  commands.  What  is 
done  during  the  process,  including  what  data  are  collected  during  it  and 
when  and  what  data  are  printed  out  is  modified  by  the  input  command  through 
the  device  of  the  satellite  programs. 

The  instruction  that  brings  in  a  satellite  is  an  indirect  LOAD 
command.  The  effect  of  this  command  is  to  retain  all  data  and  variable 
assignments,  to  retain  also  the  original  program,  and  to  load  the  called 
program.  Where  the  original  program  and  the  called  one  have  instructions 
with  the  same  number,  only  the  second  one  remains,  the  first  i3  overwritten. 

Normally,  after  a  load  command,  control  reverts  to  the  terminal 
in  the  system  we  are  using.  To  avoid  this,  each  of  the  satellite  files 

ends  with  the  direct  command  "START,"  which  initiates  execution  without 

destroying  the  data  (which  "RUN"  would  do) . 

This  satellite  linkage  is  indicated  in  Figure  1  by  a  dotted  arrow. 

/RESTRICT/  is  loaded  as  a  satellite  if  the  command  input  calls  for 

a  restriction  in  Section  F.  Then,  as  an  event  is  searched,  it  accumulates 
the  data  relevant  to  the  restriction.  When  the  end  of  an  event  is  found, 
it  checks  these  accumulated  data  against  the  condition,  and  either  accepts 
or  rejects  the  event. 
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/COUNT/  is  loadod  as  a  satellite  if,  in  Section  G,  top  lovcl,  the 
output  is  to  be  either  counts  or  uverago  counts.  In  the  latter  case 
/AV-CT/  is  loaded  as  u  satellite  to  /COUNT/, 

/DURATION/  is  loaded  as  a  satellite  if  the  output  is  to  be  either 
accumulated  durations,  or  average  durations.  In  the  latter  case, 

/AV-DUR/  is  loaded  as  a  secondary  satellite. 

G.  Data 

The  data  consists  of  u  set  of  files  and  two  directories:  "ACDIR" 
is  a  directory  organized  by  aircraft,  and  SQDIR  is  organized  by  squadron. 
ACDIR,  for  example,  has  a  main  listing  of  the  aircraft,  the  earliest 
file  for  each,  and  a  link  to  the  next  directory  entry  for  that  aircraft; 
hence,  it  is  a  list-organized  file  of  file  names. 

Each  file  covers  one  aircraft  while  it  is  in  one  squadron.  The  name 
is  the  code  for  the  squadron  and  the  last  three  digits  of  the  aircraft 
number--e.g. ,  "AC1808"  for  155808  while  in  AC1. 

The  entries  in  a  file  are  arranged  chronologically  by  date  and 

time  with  some  conventions  to  resolve  ambiquities.  Thus,  the  data  from 

codes  71  and  76  cards  have  been  interleaved — the  code  79  card  images 

* 

have  not  so  far  been  used.  This  permits  us  to  search  a  file  sequentially 
to  determine  an  event,  and  to  accumulate  as  we  go  the  data  for  the  re¬ 
striction  condition,  if  any,  and  for  outputting. 

Parenthetically,  the  files  do  not  contain  the  direct  card  images. 

The  data  have  been  reformatted  to  conserve  space. 

* 

The  designation  of  data  cards  as  codes  71,  76,  and  79  is  in  accord 
with  established  Naval  standards.  The  code  71  cards  describe  readiness 
status.  The  code  76  cards  contain  flight  data.  The  code  79  cards  are 
monthly  summary  cards  for  each  aircraft. 
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It  happens  that  all  of  the  files  except  PC1799  are  sufficiently 
small  so  that  they  could  be  completely  loaded  during  search.  PC1799 
is  too  large  for  the  system  being  used — it  exhausts  the  available  core 
memory.  It  has  seemed  desirable,  however,  for  the  purposes  of  our 
research  cn  largo  files,  to  act  as  if  all  the  files  were  too  large. 

Hence  all  of  the  files  are  paged  in  as  blocks  of  50  entries  at  a  time. 

H.  Control  Transfer 

One  key  element  in  any  program  complex  is  the  way  control  is  passed 
from  one  program  to  another.  The  principal  vehicle  used  for  this  is  a 
lG-component  string  vector  labeled  0(1).  In  addition,  there  may  be  other 
numeric  values  (N2  to  N6,  inclusive)  and  the  string  urrays  B,  C,  M,  F, 
and  G  depending  on  the  choices  made  in  /INTERROGATION/.  The  significances 
of  these  parameters  are  detailed  in  Appendix  A. 

I.  -ode 

The  actual  code  for  the  complex,  as  it  exists  at  the  present  time, 
is  given  in  Appendix  B.  Although  it  is  a  running  program,  not  all  possible 
commands  have  been  tested  and  some  difficulties  may  remain  uncorrected 
as  yet . 

The  code,  as  written,  does  of  course  depend  on  the  specific 
language.  It  is  believed,  however,  that  it  could  be  rewritten  fairly 
easily  into  any  language,  or  any  version,  having  equivalent  basic 
capabilities.  The  principles  that  have  been  used--such  as  the  use  of 
satellite  programs — should  be  broadly  applicable  and  should  greatly 
facilitate  such  a  translation  should  it  be  desired. 
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IV  OPEN-ENDEDNESS 


The  flow  chart  for  /EXECUTE/  is  given  in  Figure  4.  This  is  of  interest 
since  it  provides  the  key  to  open-ended  quality  that  we  believe  we  have 
achieved . 

The  key  to  the  flow  chart  is  in  the  starred  blocks.  In  /EXECUTE/ 
these  are  generally  quite  trivial  bits  of  code.  However,  they  are  what  wo 
call  "switch  points."  They  are  the  points  of  attachment  for  the  various 
satellite  programs.  They  are  passed  through  at  the  critical  times  in  the 
basic  search  procedure,  as  follows: 

Lines 

300-320  Entered  when  a  directory  list  is  exhausted,  indicating 

completion  of  the  search  on  a  particular  aircraft  or 
squadron. 

600-640  Entered  on  completion  of  execution. 

900-930  Entered  on  the  end  of  a  file,  indicating  completion  of 

the  search  for  an  aircraft  in  a  given  squadron,  or  vice 
versa. 

1100-1120  Entered  when  past  the  starting  date  of  the  user’s  com¬ 

mand — the  start  of  data  collection. 

1300-1320  Entered  at  a  known  beginning  of  an  event. 

1500-1540  Entered  at  the  end  of  an  event.  (Note,  not  entered 

If  end  does  not  satisfy  terminal  date  specified  in 
the  user's  command.) 

1600-1630  Entered  when  file  entry  is  a  flight  ci  rd . 


The  clear  identification  of  the  switch  points  makes  it  easy  to  write 
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satellite  programs  that  will  work  with  the  main  program.  For  example, 
/EXECUTE/  does  nothing  with  the  1600  block  except,  in  1600  itself,  test  if 
past  initial  date  (S2  =  0  otherwise)  and,  if  so,  to  confirm  a  possible  be¬ 
ginning  of  an  event  (by  changing  S2  from  2  to  1  if  it  is  not  already  so). 
However,  a  restriction  on  the  event  will  concern  the  number  of  flights  or 
landings,  or  the  duration  of  flights  in  the  event.  Hence,  /RESTRICT/  takes 
off  from  1610  to  accumulate  data  in  the  restriction  variable,  X.  Similarly, 
/COUNT/  and  /DURATION/  take  off  from  1620  if  they  may  call  for  data  output 
from  the  76  cards.  (They  may  not  if  the  user  is  calling  for  either  counting 
or  accumulating  the  duration  of  the  events  themselves.) 

Similarly,  /RESTRICT/  takes  off  from  1500  to  determine  if  the  event 
is  acceptable  or  not.  if  not,  it  comes  back  to  1530,  bypassing  any  activity 
at  1510  or  1520.  /EXECUTE/  itself  branches  at  1510  to  output  the  event. 
/COUNT/  and  /DURATION/  both  overlay  1510  to  kill  the  printout  required  by 
/EXECUTE/  itself.  They  use  1510  to  accumulate  data  when  appropriate,  and 
1520  to  print  output  when  appropriate,  or  to  transfer  duta  to  an  accumula¬ 
tion  when  this  is  required.  Since  /RESTRICT/  returns  to  1530  if  the  event 
is  unacceptable,  it  bypasses  1510  and  1520,  and  the  data  output  and  accumu¬ 
lation  are  performed  only  over  those  events  that  pass  the  restriction  screen. 

If  we  visualize  the  flow  chart  of  /EXECUTE/  as  a  directed  graph,  then 
the  overlay  of  a  satellite  expands  the  graph  by  attaching  other  arcs  and 
nodes,  with  all  attachments  being  at  the  switch  points  oi  the  original 
graph. 

Ano'her  way  of  looking  at  this  is  to  say  that  we  have  constructed  a 
kind  of  higher-level  language.  Each  block  of  code  between  switch  nodes 
may  be  regarded  as  defining  a  higher-level  function  or  command,  which 
could  be  given  a  name.  The  isolation  and  identification  of  the  switch 
nodes  in  effect  permits  us  to  write  a  satellite  first  in  this  higher-level 
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implicit  language,  and  then  detailing  the  needed  functions  or  commands  that 
arc  special  to  that  satellite. 

Our  experience  has  boon  that  this  approach  greatly  simplifies  con¬ 
structing  satellite  programs — and  even  satellites  of  satellites.  It  is 
this  quality  that  leads  us  to  consider  that  we  have  made  the  system  open- 
ended  to  a  useful  und  practical  degree. 


V  POSSIBLE  EXTENSIONS  AND  MODIFICATIONS 


The  program  complex,  as  it  currently  exists,  could  be  extended  or 
adapted  in  a  number  of  directions,  of  which  the  following  list  is  represen¬ 
tative. 

A.  Immediate  Extensions  (Not  Involving  Structural  or  Conceptual  Changes) 
It  would  be  a  relatively  simple  matter  to  add  the  use  of  the  "Cat.  No. 

for  defining  events.  We  could  also  include  the  option  of  counting  cata¬ 
pult  take-offs,  or  accumulating  NOR  hours  in  an  event.  Other  data  could 
also  be  collected  if  they  proved  to  be  of  interest.  For  example,  we  could 
make  the  system  detect  events--def ined  by  some  class  of  maintenance  actions 
that  contained  some  other  disjoint  class  of  maintenance  actions.  Or  we 
could  determine  the  time  between  events,  and  so  accumulate  the  duration 
(or  average  duratLon)  of  the  event-defining  class  of  maintenance  actions. 
These  and  similar  additions  to  the  available  options  could  be  added  with 
relatively  minor  effort. 

B.  Language  and  Facilities 

We  have  given  some  consideration  to  the  question  of  what  other  pro¬ 
gramming  languages  might  be  used.  The  only  difficulty  we  see  with  FORTRAN 
is  that  it  requires  that  all  arrays  be  dimensioned  before  execution  starts. 
This  would  slightly  limit  the  flexibility  of  the  command  input.  For 
example,  we  currently  permit  the  user  to  list  any  number  of  aircraft.  In 
FORTRAN,  a  maximum  number  would  have  to  be  specified.  There  are  ways 
around  this  limitation,  but  they  are  awkward  and  inefficient.  Otherwise, 
FORTRAN  would  be  quite  satisfactory. 

ALGOL  and  ALGOL-type  languages  should  be  quite  feasible.  PL1  should 
offer  no  difficulties.  Probably  LISP,  and  perhaps  SNOBOL  could  be  used. 
Similar  languages  are  possible  candidates. 

For  the  satellite  concept,  we  need  the  LINK  and  LOAD  commands  or 
their  equivalents.  These  are  mainly  functions  of  the  operating  system, 
rather  than  the  language  itself. 
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So  far,  we  have  designed  tho  complex  to  operate  interactively,  generally 
in  an  interpretive  mode.  With  a  much  larger  set  of  files,  it  would  probably 
be  desirable  to  have  the  option  of  compiling  the  program  as  it  is  finally 
put  together  after  loading  the  required  satellites,  and  to  execute  it  in  a 
batch  mode  type  of  operation.  There  are  no  apparent  difficulties  in  doing 
this. 

We  have  provided  only  for  printout  on  a  teletype  or  other  printing 
device.  The  use  of  a  graphic  display  device  would  be  a  convenient  facility, 
particularly  for  some  of  the  additions  discussed  below.  There  would  be  no 
particular  difficulty  in  implementing  the  present  outputs  on  a  display  unit. 

C.  Structural  Modification 

A  minor  structural  change  that  would  further  facilitiate  open-endedness 
would  be  to  limit  the  transfer-of-con trol  vector  D  to  its  first  12  components. 
The  additional  information  contained  in  D(13)  to  D(16)  would  then  be  held 
in  a  subsidiary  array.  This  would  limit  D  to  "top-level"  choices  in 
/INTERROGATION/  and  open  the  way  to  an  indefinitely  deep  treeing  of  possible 
commands  for  information  output.  The  modifications  required  would  be 
straightforward. 

D.  Outputs 

From  the  viewpoint  of  a  potential  user,  it  would  be  desirable  to  in¬ 
clude  means  for  obtaining  simultaneous  multiple  outputs — -for  example,  both 
accumulated  flight  time  and  a  count  of  landings  in  an  event.  This  has  not 
been  done,  primarily  to  keep  the  command  input  reasonably  compact.  In 
addition,  it  would  complicate  the  formatting  of  the  output,  although  this 
could  be  handled.  As  the  complex  is  written,  we  have  made  no  provision  for 
the  simultaneous  loading  of  /COUNT/  and  /DURATION/  or  of  other  combina¬ 
tions  of  satellite  programs.  However,  there  is  no  reason  it  could  not  be 
done. 
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E.  Working  Tiles 

As  a  possible  means  of  handling  D,  above,  and  other  Important  output 
options,  it  might  be  desirable  to  output  in  two  stages,  first  to  a  working 
file  and  then  to  the  actual  printout  or  display.  The  working  file  would 
accumulate  all  potentially  relevant  data,  however  relevancy  is  defined,  for 
all  qualifying  events.  Actual  output  would  then  include  only  a  small  subset 
of  this  data,  or  appropriate  summarlzutions  of  the  data  such  as  accumulated 
durations  or  counts  or  averages. 

The  use  of  a  working  file  would  permit  other  types  of  output,  such  as 
the  display  of  histograms  showing  the  distribution  of  (for  example)  flight 
durations  or  landing  counts.  We  could  then  adaptively  adjust  cutoff  values, 
such  as  determining  what  limiting  duration  of  events  accounts  for,  say,  98 
percent  of  all  events.  This  possibility  has  obvious  significance  for  the 
final  adjustment  of  a  proposed  standard. 

A  further  advantage  of  a  working  file  would  be  that  it  would  facili¬ 
tate  looking  in  detail  at  exceptional  events.  If  the  user  has  tentatively 
established  a  standard  that  includes,  say,  98  percent  of  all  events,  he 
would  probably  then  want  to  look  In  detail  at  the  remaining  2  percent.  At 
present  this  can  only  be  done  by  a  complete  rerun  using  the  standard  as  a 
restriction  to  screen  out  the  nonexceptional  events. 

F.  Interactive  Output 

Given  the  working  file  discussed  above,  we  could,  in  the  general  out¬ 
line  of  Figure  1,  split  the  interaction  level  into  two  functions,  one 
specifying  interactively  what  the  working  file  should  be,  the  other  inter¬ 
actively  specifying  the  output.  If  appropriate,  the  processing  level  could 
also  be  split,  with  separate  programs  constructing  the  working  file  and 
manipulating  it  for  output. 

If  this  were  done,  it  would  probably  be  worthwhile  to  retain  the 


present  system  as  an  option,  with  the  establishment  of  one,  or  possibly 


more,  working  fLles  as  another  option.  That  Is,  the  top  level  of  0,  output, 
In  Figure  1  would  include  the  option  of  deferring  specification  of  the  out¬ 
put.  The  system  would  then  execute  the  search  procedure,  subject  to  the 
rest  of  the  input  command,  but  transferring  data  to  the  working  file  rather 
than  printing  it  out.  Upon  completion,  control  would  be  transferred  to  a 
separate  program  from  which  the  user  could  interactively  call  for  a  suc¬ 
cession  of  different  outputs, 

G.  Utility  File 

It  is  a  small  step  from  the  concept  of  a  working  file  as  outlined  above 
to  an  on-going  "utility  file,"  which  is  kept -up  to  date  as  new  data  are 
entered  into  the  system.  Such  a  file  would  come  into  existence  with  the 
tentative  or  permanent  adoption  of  a  standard,  and  would  become  the  princi¬ 
pal  instrument  for  the  on-going  monitoring  of  operations  versus  that 
standard . 

H.  Anticipation 

Given  the  capability  of  establishing  utility  files,  there  is  need  for 
a  decision  process  that  will  manage  the  utility  files.  Initially,  this 
would  probably  be  under  the  sole  control  of  the  user.  However,  there  is 
also  the  possibility  of  the  system  itself  entering  into  this  process. 

This  possibility  would  become  important  as  the  number  of  users  increases, 
and  it  becomes  more  likely  that  different  users  may  set  up  similar  utility 
files  or  that  an  independent  query  could  be  more  efficiently  handled  in 
some  existing  utility  file. 

At  this  point  we  can  only  talk  about  this  area  of  extension  in  rather 
vague  terms,  but  the  possibilities  of  it  arc  being  considered. 
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VI  CONCLUSIONS 


We  have  constructed  a  scenario  based  on  data  on  aircraft  utilization 
and  maintenance  that  illustrates  a  number  of  intereating  capabilities  and 
properties.  Among  these  capabilities  and  proparties  the  following  may  be 
noted  : 

•  The  system  is  Interactive  without  requiring  programming 
expertise  by  the  user,  or  any  knowledge  of  formatting 
conventions  or  the  like. 

•  The  system  is  responsive  to  a  wide  range  of  user  commands. 

•  The  program  exhibits  useful  characteristics  of  "open- 
endedness.”  It  is  relatively  simple  to  write  new  satel¬ 
lite  programs  that  will  collect  and  print  out  information 
that  is  not  already  available. 

•  The  system  exhibits  a  clear  separation  of  the  dialogue 
and  execution  modes. 

•  The  system  also  exhibits  a  clear  division  into  different 
functional  modes,  obtained  through  the  calling  of  different 
satellite  programs. 

•  These  qualities  are  put  into  the  context  of  a  practical 
area  of  managerial  concern  using  actual  data. 

We  have  also  given  a  rather  extensive  list  of  possible  modifications 
and  extensions  that  could  be  made  to  the  scenario.  This  list  illustrates 
the  inherent  capabilities  of  the  approach  used.  It  also  provides  a 
"shopping  list,"  which  is  currently  under  study  to  determine  what  should 
be  done  next  to  advance  the  research  goals  of  the  project. 


Appendix  A 
CONTROL  INFORMATION 
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D(l)  : 
D<2)  :  i 

i 

D(3) : 

D(4)  : 
D(5> : ; 
D(6)  : 

D<7):  , 


D(8)  : 

DO) : 

D(10)  : 

D(ll)  : 
P(12)  : 


Appendix  A 
Control  information 


A.  Type—  AFPH  only,  trapped. 

B.  A/C—  1  if  all 

2  if  listed  in  B(N2)— trapped. 

C.  Squadrbns—  ,1  if  all  1 

2  if  listed  in  C(N3)—  trapped. 

D.  Start  date--  pot  less  than  0213 
End  .date—  not  greater  than  1201 
How  end  date  is  to  be  treated: 

1  if  events  must  end  cpi/before  end  date, 

2  if  events  need  only  start  on/before  end  date. 

1  -  i 

E1.  Defn.  of  event  in  terms  of  WUC: 

1  if  ahy  WUC 

;  2  if  only  listed  TOC  1 

3  if  any  but  listed  WUC. 

If  2  or  3 i  list  in  M(N4) 

F.  Restriction  op  event? 

1  if  there  is  one, 

2  if  not. 

Restriction  applies  to: 

1:  #  fits  in  event, 

2 :  #  lndgs  in  event , 

3:  accum.  fit  time  in  event. 

1:  All  flt/lndg  codes, 

2:  Listed  flt/lndg  codes —  list  as  F(N5) 
The  restriction  itself,  as  a  string. 

G.  Output 

l:List  of  events, 

2 '.List  of  counts, 

!  3:List  of  accum.  durations, 

4 :Average  counts , 

5:Average  accum.  durations. 
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If  D(12)  -  1~  list  of  events: 

D(16)  -  1  if  list  by  A/C, 

2  if  list  by  squad. 


If  0(12)  ■  2 —  list  of  counts: 

D(13)  ■  1  if  count  of  events, 

2  if  count  of  flights, 

3  if  count  of  landings, 

0(14)  =>  1  if  all  f lt/lndg  codes,  (0(13)  not  1) 

2  if  applicable  codes  listed, 

3  if  all  but  listed  codes. 

If  applicable,  list  as  G(N6) 

D(16)  »  1  if  list  count  for  each  event, 

2  if  list  count  for  each  A/C, 

3  if  list  count  for  each  squad., 

4  if  give  total  count  for  all  events. 


If  D(12)  »  3 —  list  of  durations: 

D(13)  ■  1  if  durations  of  events, 

2  if  flight  time  in  events. 

D(14)  »  1  if  all  flight  codes,  (D(13)  not  1) 

2  If  listed  codes  only 

3  if  all  but  listed  codes. 

If  applicable,  list  as  G(N6) 

D(16)  *  1  if  list  accum.  durations  for  each  event, 

2  if  list  accum.  durations  for  each  A/C, 

3  if  list  accum.  durations  for  each  squad., 

4  if  list  accum.  duration  for  all  events. 


If  D(12)  =*  4 —  list  of  average  counts: 


D(15) 


if  av.  X  of  f lts/lndgs  per  event,  av .  over  all  events, 

if  av.  X  f lts/lndgs  per  event  for  each  A/C, 

if  av.  #  f lts/lndgs  per  event  for  each  squad., 

if  av.  X  flts/lndgs  per  event  for  each  A/C  in  each  squad, 


D(13) 


if  av.  X  events/f lts/lndgs  per  A/C  for  each  squad, 
,  i.  if  #  of  flights, 

2  if  #  of  landings, 

3  if  x  of  events  (if  appropriate.) 

D(14)  =»  1  if  all  f lt/lndg  codes 

2  if  listed  codes 

3  if  all  but  listed  codes 
If  appropriate,  list  as  G(N6) 

30 


If  D(12)  «•  5--  list  of  average  accumulated  durations: 

X>(  15)  *  1  if  av.  fit  dur,  per  event  for  all  events, 

2  if  av  ,  fit  dur.  per  ev'ent  for  each  A/C, 

3  if  av.  fit  dur.  per  event  for  each  squad., 

4  if  av.  fit  dur,  per  event  for  each  A/C  in  each  squad., 

5  if  av.  dur.  of  events  for  each  A/C, 

6  if  av.  dur.  of  events  for  each  squad., 

7  if  av.  dur.  of  events  for  each  A/C  in  each  squad., 

8  if  av.  dur.  of  events  over  all  events. 

D(14)  *  1  if  all  flight  codes,  (if  applicable) 

2  if  listed  codes, 

3  if  all  but  listed  codes. 

If  appropriate,  list  as  G(N6) 
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Appendix  B 

CODE  FOR  THE  PROGRAM  COMPLEX 


Appendix  B 


CODE  FOR  PROGRAM  COMPLEX 


1  .  /STANDARDS/ 

to  PRINT"  ****PLIGMT  STANDARDS****" 

20  PRINT 
30  PRINT 

40  PRINT  "  IP  YOU  NEED  DETAILED  INSTRUCTIONS*  TYPE  *1*  FOLLOWED" 

90  PRINT  "BY  THE  RETURN  HEY*  ELSE  TYPE  ’2*  AND  RETURN. "t 
SO  INPUT  H 
TO  IF  H»2  THEN  360 
RO  PRINT 

*0  PRINT  "  THIS  IS  A  COMPAND  PROGRAM  TO  FACILITATE  THE  DEVELOPMENT  OF." 
100  PRINT  "AND  USE  OF.  STANDARDS  OF  FL10HT  AVAILABILITY  FOR  NAVAL 
AIRCRAFT." 

110  PRINT 

120  PRINT  "  YOU  WILL  BE  ASKED  TO  INDICATE  THE  TYPE  OF  AIRCRAFT  TO  BE 
CONSIDERED." 

130  PRINT  "THE  PARTICULAR  AIRCRAFT  fA/C>  AND  SOUADRBNS  BF  INTEREST." 

140  PRINT" THE  WUC  CBDES  OF  INTEREST.  THE  INCLUSIVE  DATES.  AND  THE  DATA" 
ISO  PRINT"BEING  SOUGHT.  YOU  WILL  BE  ABLE.  IF  YOU  WISH.  TB  PUT  CONDITIO* 
160  PR1NT"0N  APPRBPRIATE  PARTS  Or  YBUR  SPECIFICATION." 

170  PRINT 

100  PRINT"  IN  THE  FOLLOWING.  AN  ’EVENT*  COVERS  ONE  AIRCRAFT  FROM" 

190  PR I NT" THE  TIME  OF  COMPLETION  OF  ONE  OF  THE  DESIGNATED  WUC  CODES" 

800  PRINT  "TO  THE  START  OF  THE  NEXf." 

210  PRINT 

220  PRINT"  WHEN  OPTIONS  ARE  OFFERED  YOU.  INDICATE  YOUR  CHOICE  OY  TYPIN8 
230  PRINT  "THE  NUMBER  OR  LETTER  PRECEEDING  THE  SELECTEO  OPTION." 

240  PRINT  "AND  THE  RETURN  HEY." 

250  PRINT 

260  PRINT  "  WHEN  A  NUMBER  IS  ASHED  FOR,  TYPE  THE  NUMBER  YOU  WANT" 

2Y0  PRINT  "FOLLOWED  BY  THE  RETURN  KEY." 

280  PRINT 

290  PRINT  "  WHERE  SEVERAL  CODES  ARE  RE6UIRED*  TYPE  THEM  SEPERATCD" 

300  PRINT  "BY  COMMAS*  THEN  END  BY  THE  RETURN  KEY.  IF  YOU  HAVE" 

310  PRINT  "NOT  INTERRED  ENOUGH.  THE  SYSTEM  WILL  TYPE  A  QUESTION  MARK" 

320  PRINT  "ANO  WAIT  FOR  PORE.  IF  YBU  HAVE  ENTERRED  TO0  MANY.  THE" 

330  PRINT  "SYTEM  WILL  IGNORE  THE  EXTRA  ONES*  IF  YBU  MAKE  A  MISTAKE." 

340  PRINT  "CONTINUE.  YOU  WILL  HAVE  A  CHANCE  TB  CORRECT  IT  BEFORE" 

350  PRINT  "CALLING  FOR  EXECUTION  OF  THE  COMMAND." 

360  PRINT 
370  PRINT 

380  PRINT"  **COMPAND  INPUT**" 

390  PRINT 
4D0  VAA-EERO 
410  STRING  D<!6>»U 
420  T0»0 

430  LINK  /INTERROGATION/ 
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2.  /INTERROGATION/ 

10  A0»"#M 
80  BS»"  #" 

30  CS«"  #" 

40  D6»"  #" 

50  E*«"  #" 

40  fs«"  »" 

to  ir  T0*0  THEN  400 

SO  PRINT 

40  GOSUB  1200 

100  PRINT 

110  GOSUB  3000 

180  PRINT 

130  GOSUB  3 100 

140  PRINT 

150  803UB  3800 

160  PRINT 

170  GOSUB  3300 

ISO  PRINT 

190  GOSUB  3400 

800  PRINT 

210  G0SUB  3500 

280  PRINT 

830  G0SUB  3700 

240  PRINT 

400  PRINT  **D0  YOU  WANT  T0»" 

410  PRINT  IN  IMAGE  BSi"|.  EXECUTE." 

480  PRINT  IN  IMAGE  BSt"2.  ENTER  A  NEW  COMMAND." 

430  PRINT  IN  IMAGE  Bit"3.  MODIFY  THE  PRESENT  COMMAND.** 

440  PRINT  IN  IMAGE  BStM4.  SEC  A  SUMMARY  OF  THE  PRESENT  COMMAND." 
450  PRINT  IN  IMAGE  BSl"5.  SAVE  THE  PRESENT  COMMAND." 

455  PRINT  IN  IMAGE  BSl"6.  END"* 

460  INPUT  X 
470  PRINT 

480  IF  X«t  THEN  1000  ELSE  IF  X>2  THEN  80  ELSE  IF  X»3 

THEN  600  ELSE  IF  X»4  THEN  MOO  ELSE  IF  X«5  THEN  LINK 
/SAVESUMM/  ELSE  END 

600  PRINT  "WHICH  SECTION  DO  YOU  WANT  TO  CHANGE?" 

610  PRINT  "TYPE  THE  APPROPRIATE  LETTER—  ONE  ONLY"* 

680  INPUT  U 
630  PRINT 

640  IF  U>"A"  THEN  GOSUB  3000  ELSE  IF  U»"B"  THEN  GOSUB  3100  ELSE 

IF  U«"C"  THEN  G8SUB  3800  ELSE  IF  U»"D"  THEN  G0SUB  3300  ELSE 

IF  U»"E"  THEM  GOSUB  3400  ELSE  IF  U»"F"  THEN  GOSUB  3500  ELSE 

GOSUB  3700 
650  PRINT 

660  PRINT  "DOES  THAT  COMPLETE  THE  CHANGES?" 

670  PRINT  IN  IMAGE  Bl»"t.  YES." 

6R0  PRINT  IN  IMAGE  BS|"2.  NO" I 
690  INPUT  U 
700  PRINT 

710  IF  U»"|"  THEN  400 
720  GO  TO  600 
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1000  PRINT 
1010  T0«1 

1020  LINK  /EXECUTE/ 

1100  PRINT 
11 tO  T0*1 

1120  LINK  /SUMMARY/ 

1200  PRINT  MD«  YOU  WANT  TO  ENTER  »" 

1210  PRINT  IN  IMAGE  B*!'*l  •  A  NEW  COMMAND.*4 

1220  PRINT  IN  IMAGE  B0t**2.  A  PREVIOUSLY  SAVED  COMMAND**! 

1230  INPUT  U 

1240  ir  U«’*2**  THEN  LINK  /04TAENT/  ELSE  RETURN 
3000  PRINT  IN  IMAGE  AS! 

**(A)  WHAT  TYPE  OP  AIRCRAFT  DO  YOU  WANT  TO  CONSIDER*4! 

3010  INPUT  D(l) 

3020  ir  D<n»**ArpH**  then  return 

3030  PRINT  "DATA  ON  TYPE  ,'iD<l>l**  NOT  AVAILABLE.  ONLY  HAVE  AFPH." 
3040  PRINT  IN  IMAGE  BOl"TYP E"l 
3050  GO  TO  3010 

3100  PRINT  IN  IMAGE  AS«"<B)  DO  YOU  WANT  TO  CONSIDER" 

3110  PRINT  IN  IMAGE  B»l*'l«  ALL  A/C  OP  TYPE  "♦DC1>**»." 

3112  PRINT  IN  IMAGE  B0l"2.  CERTAIN  A/C  OP  TYPE  "♦Dtlll 
3120  INPUT  D<2) 

3125  IP  D<2)-**r*  THEN  RETURN 

3130  PRINT  IN  IMAGE  CSl**M0W  MANY  A/C  00  YOU  WANT  TO  LIST"! 

3133  INPUT  N2 

3136  IP  N2*3  THEN  3190 

3140  STRING  B(N2> 

3145  PRINT  IN  IMAGE  CS!**L1ST  THE  A/C  DESIRED!** 

3130  MAT  INPUT  B 

3155  Ll«"1  53808"*L2»"1 SS903"»L3«"1 55T99" 

3165  POR  I2»l  TO  N2 
3IT0  IP  B(I2)«L<  THEN  3180 
31 T1  IF  BtI2)«L2  THEN  3180 
3172  IP  R(I2)>L3  THEN  3180 

31 T 4  PRINT  "AVAILABLE  DATA  INCLUDES  A/C  <**lLll".  "iLBl**.  •*lL3»'*V* 
3175  GO  TO  3143 
3180  NEXT  12 
3105  RETURN 

3190  PRINT  "DATA  INCLUDES  ONLY  3  A/C." 

3195  GO  TO  3130 

3200  PRINT  IN  IMAGE  A9«'*(C)  00  YOU  WANT  TO  CONSIDER" 

3210  PRINT  IN  IMAGE  83t**l.  ALL  SQUADRONS." 

3212  PRINT  IN  IMAGE  BSl**2.  CERTAIN  SQUADRONS"! 

3220  INPUT  Df 3) 

3225  IP  D*3)«"r*  THEN  RETURN 

3230  PRINT  IN  IMAGE  C*»"HOW  MANY  SOUADR0NS"t 

3235  INPUT  N3 

3236  IP  N3>3  THEN  3290 
3240  STRING  CtN31 

3245  PRINT  IN  IMAGE  C*t**LIST  THE  SQUADRONS  DESIRED!*' 

3250  MAT  INPUT  C 


3855  LI«**ACl",L2a"AC7".L3a"PCI" 
ae«s  for  ieai  t«  ns 

3870  IF  C!!2)»L t  THEN  3280 
387 t  IF  C(I2)-L8  THEN  3880 
3272  IF  C 1 12)«L3  THEN  3280 

3874  PRINT  "AVAILABLE  ORTA  INCLUDES  S0UADR8NS  !"*LI *".  M*L2*"»  "*L3*»>" 

3875  08  T8  3245 
3880  NEXT  12 
3885  RETURN 

3890  PRINT  "DATA  INCLUDES  ONLY  3  SQUADRONS*" 

3895  00  T0  3230 

3300  PRINT  IN  IMAGE  AS*"!0>  WHAT  TIME  PERIOD  DO  YOU  WANT?" 

3301  PRINT  IN  IMAGE  ASt 

"TYPE  THE  JULIAN  OATES*  SEPERATED  BY  C0MMAS."« 

3305  INPUT  D!4>.D!5> 

3310  IF  LENGTH! D( 4) )<>4  THEN  3380 

3311  IF  LENGTH!D!5>><*4  THEN  3380 
3315  IF  VAL!D!4)>>VALI0!S>)  THEN  3350 

3320  IF  VAL!D!4)><2!3  THEN  3340 

3321  IF  VAL!D!S>>»1201  THEN  3340 

3325  PRINT  IN  IMAGE  BSt 

"DO  YOU  WANT  THE  FINAL  EVENTS  TO  BEt" 

3326  PRINT  IN  IMAGE  CSt'M  .  ENDED  ON/BEFORE  THE  FINAL  DATE." 

3327  PRINT  IN  IMAGE  CS|"2.  STARTED  ON/BEFORE  THE  FINAL  DATE"* 

3330  INPUT  D!6> 

3335  RETURN 

3340  PRINT  "AVAILABLE  DATA  IS  FROM  0213  TO  1201*  INCLUSIVE." 

3345  PRINT  "WHAT  TIME  PERIOD"! 

3346  GO  TO  3305 

3350  PRINT  "THE  STARTING  DATE  IS  AFTER  THE  BEGINNING  ONE." 

3351  GO  TO  3345 
3380  PRINT 

"THESE  ARE  NOT  JULIAN  DATES.  THEY  SHOULD  BE  4-DIGIT  NUMBERS." 

3301  PRINT 

"THE  FIRST  DIGIT  IS  THE  LAST  DIGIT  OF  THE  YEAR.  THE  OTHER" 

3382  PRINT 

"DIGITS  ARE  THE  DAY  NUMBER  IN  THE  YEAR." 

3390  GO  TO  3345 

3400  PRINT  IN  IMAGE  AS*"!E)  HOW  ARE  EVENTS  TO  BE  DEFINED?" 

3401  PRINT  IN  IMAGE  BY  ANY  WUC." 

3402  PRINT  IN  IMAGE  BSi"2.  BY  A  PARTICULAR  SET  OF  WUC  CODES." 

3403  PRINT  IN  IMAGE  8Si"3.  BY  ANY  WUC  EXCEPT  A  PARTICULAR  SET"* 

3410  INPUT  D!7 ) 

3420  IF  DC7)a"l"  THEN  RETURN  ELSE  IF  D!7>a"2"  THEN  A3«" INCLUDED*" 

ELSE  A3*"EXCLUDED»" 

3430  PRINT  IN  IMAGE  C$t"H0W  MANY  CODES  00  YOU  WANT  TO  LIST"* 

3435  INPUT  N4 
3440  STRING  M!N4> 

3450  PRINT  IN  IMAGE  C*»"LIST  THL  CODES  TO  BE  "4A3 

3460  MAT  INPUT  M 

3462  FOR  I«|  TO  N4 

3464  IF  LENGTH! M! I ) ?«*5  THEN  3480 

3466  NEXT  I 
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3470  RETURN 

3480  PRINT  "WUC  C80ES  ARE  5-DIGIT  STRINGS*" 

3490  GO  TO  3440 

3500  PRINT  IN  IMAGE  Aft 

"(E)  DO  YOU  WANT  TO  LIMIT  ATTENTION  TO  EVENTS  MEETING  SOME  CONDITION?" 

3501  PRINT  IN  IMAGE  BSt"|.  YES." 

3502  PRINT  IN  IMAGE  BS»"2.  NO"* 

3505  INPUT  DCS) 

3506  IE  DC8)»"2"  THEN  RETURN 

3510  PRINT  IN  IMAGE  8Sl"O0£S  THE  CONDITION  APPLY  TO*" 

3515  PRINT  IN  IMAGE  CSl"l.  THE  NUMBER  OE  PLIGHTS  IN  THE  EVENT*" 

3516  PRINT  IN  IMAGE  C*!"2.  THE  NUMBER  OE  LANDINGS  IN  THE  EVENT*" 

3517  PRINT  IN  IMAGE  C*i"3.  THE  PLIGHT  TIME  IN  THE  EVENT**! 

3520  INPUT  DC 9) 

3530  IE  DC9 )«"2"  THEN  A3«"LANDING"  ELSE  A3«"ELIGHT" 

3540  PRINT  IN  IMAGE  CSt"DO  YOU  WANT!" 

3545  PRINT  IN  IMAGE  DSl"l.  ALL  "♦A3*"S." 

3546  PRINT  IN  IMAGE  0St"2.  ONLY  CERTAIN  "*A3«"  CODES  CONSIDERED." 

3547  PRINT  IN  IMAGE  DSl"3.  ALL  EXCEPT  CERTAIN  "4A3V*  CODES"! 

3550  INPUT  DC  10) 

3560  IE  DC10)*"1"  THEN  3580 

3562  PRINT  IN  IMAGE  OS|"H0W  MANY  "+A3+"  CODES"! 

3564  INPUT  N5 
3566  STRING  ECNS) 

3570  PRINT  IN  IMAGE  D*»"LIST  THE  "4A3+"  CODES  INVOLVED!" 

3575  MAT  INPUT  E 

3580  PRINT  IN  IMAGE  OSi"WHAT  IS  THE  RESTRICTION?" 

3585  PRINT  IN  IMAGE  DSl"THE  OPERATORS  •*** *>«*,<*, *•  MAY  BE  USED." 

3586  PRINT  IN  IMAGE  D#!"THE  FORM  OE  THE  INPUT  SHOULD  8E»E*G*»  X>3.25." 

3587  PRINT  IN  IMAGE  0*i"IE  TIME  IS  INVOLVED.  USE  DECIMAL  HOURS." 

3590  INPUT  DC  1 1  > 

3600  RETURN 

3700  PRINT  IN  IMAGE  AO*"CG)  WHAT  DATA  IS  TO  BE  OUTPUTTED?" 

3705  PRINT  IN  IMAGE  BSf"l .  A  LIST  OE  EVENTS.” 

3710  PRINT  IN  IMAGE  BS|"2.  A  LIST  OE  COUNTS" 

3715  PRINT  IN  IMAGE  BS!"3.  A  LIST  OE  ACCUMULATED  DURATIONS." 

3720  PRINT  IN  IMAGE  99l"4.  A  LIST  OE  AVERAGE  COUNTS." 

372$  PRINT  IN  IMAGE  BSl"5.  A  LIST  OE  AVERAGE  DURATIONS"! 

3730  INPUT  DC12) 

3740  IE  0C12)«"1»  THEN  GOSUB  4000  ELSE  IE  0CI2)«"2"  THEN  4100  ELSE 
IE  0CI2)-"3"  THEN  4200  ELSE  IE  DCI2)«"4"  THEN  4300  ELSE  4500 
3750  RETURN 

4000  PRINT  IN  IMAGE  8Sl"00  YOU  WANT  EVENTS  GROUPED  FIRST  BY!" 

4310  PRINT  IN  IMAGE  C*!"l.  A/C." 

4020  PRINT  IN  IMAGE  CSl"2*  SQUADRON"* 

4030  INPUT  DCI6) 

4040  RETURN 

4100  GOSUB  4650 

4110  IE  DC  1 3 )■"! "  THEN  4130 

4120  G8SUB  4700 

4130  GOSUB  4900 

4140  RETURN 


4200  GOSUB  4600 

4210  IF  THEN  4230 

4220  GOSUB  4700 

4230  oesua  sooe 

4240  RETURN 

4300  PRINT  IN  IMAGE  BSl"WHAT  AVERAGE  OB  YOU  WANT?” 

4310  PRINT  IN  IMAGE  CSl 

"I*  THE  AV.  NO*  OF  PLTS/L0G3  PER  EVENT  FOR  ALL  EVENTS." 

4020  PRINT  IN  IMAGE  CSt 

"2.  THE  AV*  NO.  OF  FLTS/LNDGS  PER  EVENT  FOR  EACH  A/C." 

4030  PRINT  IN  IMAGE  CSt 

"3.  THE  AV.  NO.  OF  FLT3/LDGS  PER  EVENT  FOR  EACH  SQUADRON." 

4340  PRINT  IN  IMAGE  CSt 

"4.  THE  AV.  NO.  OF  FLTS/LDGS  PER  EVENT  FOR  EACH  A/C  IN  EACH  SO." 
43 SO  PRINT  IN  IMAGE  CSt 

"5.  THE  AV.  NO.  OF  EVENTS/FLTS/LDGS  PER  A/C  FOR  EACH  SQ."t 
4360  INPUT  DOS) 

4370  PRINT  IN  IMAGE  CSt  "IN  THE  ABOVE.  00  YOU  WANTt" 

4380  PRINT  IN  IMAGE  DSl"l .  FLIGHTS." 

4390  IF  DC  1 5)»"5"  THEN  4420 

4400  PRINT  IN  IMAGE  0St"2.  LANDINGS"! 

4410  GO  TO  4440 

4420  PRINT  IN  IMAGE  D3t"2.  LANDINGS." 

4430  PRINT  IN  IMAGE  DSf"3.  EVENTS'*! 

4440  INPUT  DC  1 3) 

4450  IF  DC  1 3 )«"1 "  THEN  A4»"FLIGHT"  ELSE  IF  DC13>»"2"  THEN 
A4«"LANDING"  ELSE  RETURN 
4460  GO  TO  4700 

4500  PRINT  IN  IMAGE  BSfWHAT  AVERAGE  DO  YOU  WANT?" 

4505  PRINT  IN  IMAGE  CSt 

"I.  THE  AV.  FLT  DUR.  PER  EVENT  FOR  ALL  EVENTS." 

4510  PRINT  IN  IMAGE  CSl 

"2.  THE  AV.  FLT  DUR.  PER  EVENT  FOR  EACH  A/C." 

4515  PRINT  IN  IMAGE  CSt 

"3.  THE  AV.  FLT  DUR.  PER  EVENT  FOR  EACH  SQUADRON." 

4520  PRINT  IN  IMAGE  CSt 

"4.  THE  AV.  FLT  DUR.  PER  EVENT  FOR  EACH  A/C  IN  EACH  SO." 

4625  PRINT  IN  IMAGE  CSl 

"5.  THE  AV.  DURATION  OF  EVENTS  FOR  EACH  A/C." 

4530  PRINT  IN  IMAGE  CSt 

"6.  THE  AV.  DURATION  OF  EVENTS  FOR  EACH  SQUADRON." 

4535  PRINT  IN  IMAGE  CSl 

"7.  THE  AV.  DURATION  OF  EVENTS  FOR  EACH  A/C  IN  EACH  SO." 

4540  PRINT  IN  IMAGE  CSt 

"8.  THE  AV.  DURATION  OF  EVENTS  FOR  ALL  EVENTS"! 

4545  INPUT  0C15) 

4550  A4»"FHGH7" 

455S  IF  VALCDC1 5) )«5  THEN  4700  ELSE  RETURN 

4600  PRINT  IN  IMAGE  B$t"DO  YOU  WANTt" 

4605  PRINT  IN  IMAGE  CSt"! .  THE  DURATION  OF  EVENTS." 

4610  PRINT  IN  IMAGE  CSt"2.  FLIGHT  TIME  IN  THE  EVENT"! 

4615  INPUT  DC  I  3) 

4620  A4«"FL!GHT" 

4625  RETURN 
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46 SO  MINT  IN  IMAGE  YOU  WANT  COUNTS  Wl" 

4653  MINT  IN  IMAGE  C«*"l  .  EVENTS*** 

4660  MINT  IN  IMAGE  C»i**B.  PLIGHTS*** 

4665  MINT  IN  IMAGE  CS»**3*  LANDINGS**! 

46T0  INPUT  0< 1 3) 

4680  IP  DC  1 3>»**fi*°  THEN  A4»**PLiaHT**  ELSZ  A4«**LAND1NG** 

4690  RETURN 

4700  PRINT  IN  IMAGE  CS|**0«  YOU  WANT  TO  INCLUDE!** 

4705  PRINT  IN  IMAGE  DSl**l*  ALL  "♦A4T*  CODES*** 

4710  PRINT  IN  IMAGE  D*IM2.  ONLY  CERTAIN  ••♦A4*M  CODES. ** 

4113  PRINT  IN  IMAGE  DS»**3.  ALL  EXCEPT  CERTAIN  ••♦A4*  **  CODES**! 

4720  INPUT  D(|4> 

4705  IP  D<  I  4>***l  "*  THEN  RETURN 

4730  PRINT  tN  IMAGE  OSl*'HOW  MANY  CODES**! 

4735  INPUT  N6 
4740  STRING  G(N6) 

4743  PRINT  IN  IMAGE  DSl**LIST  THE  ••♦A4*M  CODES  INVOLVED!** 

4150  MAT  INPUT  G 
4755  RETURN 

4900  PRINT  IN  IMAGE  DSl**SH0ULD  THE  COUNTS  BE  MADE  OVERT* 

4910  PRINT  IN  IMAGE  ESTM  •  EACH  EVENT**' 

4920  PRINT  IN  IMAGE  £S»**2.  THE  HISTORY  OP  EACH  A/C.** 

4930  PRINT  IN  IMAGE  ESl**3.  THE  HISTORY  OP  EACH  SOUADRON." 

4940  PRINT  IN  IMAGE  ES«**4.  ALL  OCCURENCES**! 

4950  INPUT  D<16J 
4960  RETURN 

5000  PRINT  IN  IMAGE  DST'SHOULD  THE  DURATIONS  BE  ACCUMULATED  OVER! 
3010  GO  TO  4910 


n 
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3.  /SUMMARY/ 

10  VAR>?ER0 

20  PRINT”  **SUMMARY**” 

so  oasue  eooo 

40  QOSUB  2100 
90  QOSUB  2200 
60  QOSUB  2300 
70  G0SU0  2400 

ao  i*rintm  **end  of  summary**” 

90  PRINT 

100  PRINT  "ARE  Y«U  READY  TO  EXECUTE?” 

120  PRINT  IN  IMAGE  BS»”I.  YES.” 

130  PRINT  IN  IMAGE  BS*”2.  NO”! 

13$  PRINT 
140  INPUT  X 
150  T0»2 

160  IP  X«l  THEN  LINK  /EXECUTE/  ELSE  LINK  /INTERROGATION/ 

2000  PRINT  ”A»  TYPE  •  ”*Dfl) 

2005  PRINT  ”B.  ALL  AIRCRAFT  OX  TYPE.”  IF  0<2>«”1* 

2010  I F  D<2)*”l"  THEN  2050 

2020  PRINT  ”B.  AIRCRAFT  NUMBERED!”  If  D<2>-”2” 

2025  PRINT  IN  IMAGE  BStBfl)  FOR  1*1  TO  N2 

2050  PRINT  ”C.  ALL  SQUADRONS.”  IF  DC3>«”1” 

2055  IF  Df 3>«”l“  THEN  RETURN 

2060  PRINT  ”C.  SQUADRONS  NUMBER*”  IF  Df3>*”2” 

2065  PRINT  IN  IMAGE  BStCfl)  FOR  !•!  TO  N3 
2070  RETURN 

2100  PRINT”D.  TIME  INTERVAL!” 

2110  PRINT  IN  IMAGE  BS|”START1NG  DATE  -  ”*D<4> 

2120  PRINT  IN  IMAGE  BS*”TERMINAL  DATE  ■  ”*D(S> 

2130  PRINT  IN  IMAGE  CSt”SNLY  EVENTS  ENDING  ON/BEFORE  TERMINAL 
DATE  INCLUDED."  IF  Df6>-”1” 

2131  PRINT  IN  IMAGE  C*I"EVENTS  STARTED  ON/BEFORE  TERMINAL 
DATE  INCLUDED.”  IF  Df6>-”2” 

2140  RETURN 

2200  PRINT  ”E«  AN  ’EVENT*  IS  DEFINED  BY*” 

2210  PRINT  IN  IMAGE  8S*”ANY  WUC”  IF  Df7>*”»” 

2211  PRINT  IN  IMAGE  »Ot”THE  FOLLOWING  WUC  CODES*”  IF  Df7>»”2” 

2212  PRINT  IN  IMAGE  BO»"ANV  WUC  CODE  EXCEPT  THE  FOLLOWING*” 

IF  Df 7>«”3“ 

2220  IF  Df 7 )»”1”  THEN  RETURN 

2230  PRINT  IN  IMAGE  CStMff)  FOR  !•!  TO  N4 

2240  RETURN 


2300  PRINT  ”F •  NO  RESTRICTION  ON  APPLICABLE  DATA.”  IF  D<8>»”8” 
2310  IF  Df B>»“2”  THEN  RETURN 

2320  PRINT  ”E.  THE  DATA  IS  RESTRICTED  SY«”lDCll> 
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2330  IF  D<9>*"1”  THEN  Bl*"  THE  NUMBER  BF  FLIGHTS  IN  AN  EVENT*** 

ELSE  IF  D<9>*"2"  THEN  81*"  THE  NUMBER  BF  LANDINGS  IN  AN  EVENT*** 
ELSE  Bl*"  THE  FLIGHT  TIME  IN  THE  EVENT. ** 

2340  PRINT  IN  IMAGE  GSt**WM£RE  X  1S"+BI 

2350  IF  D<9>*"2"  THEN  Cl  ■••LANDINGS**  ELSE  Cl  ■"FLIGHTS** 

2340  IF  D<10>*"!"  THEN  El*"  ALL  CBOES."  ELSE  IF  0<I0>*"2"  THEN 
El*"  THE  FOLLOWING  CODES!" 

ELSE  El*"  ALL  EXCEPT  THE  FOLLOWING  CODES!" 

2370  PRINT  IN  IMAGE  CSl**THE  **♦014"  APPLICABLE  HERE  !NCLUDC**»CI 

2380  FI*Ffl> 

2381  IF  N5*l  THEN  2385 

2382  FI *FI ♦"#  "♦FC I )  FOR  1*2  TO  NS 
2385  PRINT  IN  IMAGE  DS|F|*"." 

2390  RETURN 


2400  PRINT  "a.  THE  OUTPUT  IS  TO  BE*" 

24|0  IF  D<I2)*"I"  THEN  G0SU8  2500  ELSE  IF  DCI2>*"2"  THEN  GOSUB 
2600  ELSE  IF  0(I2)*"3"  THEN  GOSUB  2700  ELSE  IF  01121***4** 

THEN  GOSUB  2B00  ELSE  GOSUB  2900 

2420  RETURN 

2500  IF  D(16)*"2"  THEN  2550 

2510  PRINT  IN  IMAGE  8Sl"EVENTS  LISTED  BY  A/C." 

2520  RETURN 

2550  PRINT  IN  IMAGE  M*"EVENTS  LISTED  BY  SOUADRBN." 

2560  RETURN 

2600  IF  DC! 3>*"»"  THEN  A4*"EVENT"  ELSE  IF  D(I3>*"2"  THEN  A4«"FLIGHT" 
ELSE  A4*WLAND1NG" 

2610  PRINT  IN  IMAGE  B9l"C0UNTS  OF  "♦A4*"S." 

2620  IF  0<13)*"r*  THEN  2650  ELSE  IF  0(13)«*r  THEN  GOSUB  3000  ELSE 
GOSUB  3100 

2650  IF  D< I 6>*"l "  THEN  A4*"EACH  EVENT."  ELSE  IF  DC16)*"2"  THEN 

A4*"EACH  A/C."  ELSE  IF  0<I6>*'*3"  THEN  A4*"CACH  SSUADRON."  ELSE 
A4*"ALL  OCCURENCES." 

2660  PRINT  IN  IMAGE  CS»"TME  COUNTS  ARE  TO  BE  ACCUMULATED  OVER  ***A4 

2670  RETURN 

2700  A2*"TME  ACCUMULATED  " 

2705  IF  D<I3>*"2"  THEN  B2«"FLIGHT  TIME"  ELSE  B2* 

"DURATION  OF  THE  EVENTS" 

3710  IF  D<16)»"l"  THEN  .":2«"EACH  EVENT."  ELSE  IF  Df|6)*"2"  THEN 
C2*"EACH  A/C."  ELSE  IF  0f|6)«"3"  THEN  C2«"EACH  SQUADRON." 

ELSE  C2*"ALL  OCCURENCES." 

2720  PRINT  IN  IMAGE  8SlA2.B2."  TOTALLED  OVER  "♦C2 

2730  IF  DM3)*"2"  THEN  GOSUB  3000 

2740  RETURN 

2800  IF  0M3>*'*IM  THEN  82*"FLIGHTS  "  ELSE  IF  D{13»«"2"  THEN 
B2*"LANDINGS  "  ELSE  B2«"EVENTS  " 

2M10  IF  D(15)«"l"  THEN  PRINT 

"  THE  AV.  NO.  OF  "1621"  PER  EVENT  FOR  ALL  EVENTS." 

2820  IF  Dn5)*"2"  THEM  PRINT 

"  THE  AV.  NO.  OF  ”*B2!"  PER  EVENT  FOR  EACH  A/C." 
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2830  IF  DO  5>-"3**  THEN  PRINT 

M  THE  AV.  NO.  OF  " IB2! ••  PER  EVENT  FOR  EACH  SQUADRON." 

2840  IF  DOS)-"4"  THEN  PRINT  , 

**  THE  AV«  N0«  BF  "1821"  PER  EVENT  FDR  EACH  A/C  IN  EACH  SGUADR0NV 
2850  IF  D(I5)»"5"  THEN  PRINT 

**  THE  AV.  NO*  BF  44lB2l"  PER  A/C  IN  EACH  S0UADR0N." 

2840  IF  0O3)»"t"  THEN  3000  ELSE  IF  D03)-**2**  THEN  SlOO  ELSE  RETURN 

2900  IF  VALCDO  5)  >«5  THEN  A2-4*  FLIGHT  DURATION  PER  EVENT'*  ELSE 
A2***DURAT10N  OF  EVENTS*4 

2010  IF  DO  5)-"!**  THEN  82-**ALL  EVENTS***  ELSE  IF  DM  5>«"244  THEN 

B2-**EACH  A/C.*4  ELSE  IF  DM  5>-4*34*  THEN  B2-"EACH  SOUADRON44  ELSE 
IF  DO  5)-" 4"  THEN  B2-"EACH  A/C  IN  EACH  SQUADRON.** 

2920  IF  D(l  THEN  B2-**EACH  A/C."  ELSE  IF  DOS)-4**4*  THEN  B2- 

“EACH  SOUADRON.4*  ELSE  IF  DOS)-4*?**  THEN  B2-4*EACH  A/C  IN  EACH  SO.** 
ELSE  B2-44ALL  EVENTS.*4 

2930  PRINT44  THE  AVERAGE  44tA2l**  FOR  44»B2 
2940  IF  VAL  f  OO  5)  )<  5  THEN  3000  ELSE  RETURN 

3000  PRINT  IN  IMAGE  CSt  **ALL  FLIGHT  CODES  INCLUDED.**  IF  DM4)-*»I44 
3010  PRINT  IN  IMAGE  CSt**THE  FOLLOWING  FLIGHT  CODES  TO  BE  INCLUDED!4* 

IF  DM4>«**2" 

301 5  PRINT  IN  IMAGE  CSl**ALL  FLIGHT  CODES  EXCEPT  THE  FOLLOWING!4* 

IF  DO  4)-**3** 

3020  IF  DO  4)-"l"  THEN  RETURN 
3030  G2-GO  ) 

3040  IF  N«-|  THEN  30*0 

3050  G2-G2*4**  "♦GU)  FOR  I  •  2  TO  N6 

30*0  PRINT  IN  IMAGE  0SlG2*”»" 

3070  RETURN 

3100  PRINT  IN  IMAGE  CS!  "ALL  LANOING  CODES  INCLUDED.44  IF  DM4)-*4I" 

3110  PRINT  IN  IMAGE  CSl**THE  FOLLOWING  LANDING  CODES  TO  BE  INCLUDED!** 

IF  D0  4)-4424* 

31  IS  PRINT  IN  IMAGE  CSl**ALL  LANDING  CODES  EXCEPT  THE  FOLLOWING!" 

IF  D<  I  4)-**3" 

3120  IF  D< 1 4)-4,I "  THEN  RETURN  ELSE  3030 


42 


A  .  /SAVESUMtj/  1 

to  STRING  Ul 

50  PRINT  "UNDER  WHAT  PILE  NAME  00  YOU  WANT  THE  SUNNARY  SAVE0T**t 
40  INPUT  U  i 

70  FOR  ,1*1  TO  n 
75  READ  Ul 

80:  IF  U*UI  THEN  1000 
£5  NEXT  1 

90  DATA1 /STANDARDS/*/INTERROGATI0N/*/3UMMARY/«/EXECUTE/» 

/RESTRlCT/-/C0UNT/»/AV-CT/»/OURATI0N/*/AV-DUR/*/SAUESUNN/» 

/OATAENT/ 

100  OPEN  U»OUTPUT*t 

200  WRITE  ON  I IM2.N3. N4»N5» N6#T0 

300  FOR  I*  I  TO  16 

3to  Write  on  hd<i>  1 

320  NEXT  1 

400  IF  N2*0  THEN  500 
410  FOR  1*1  TO  N2 
420  WRITE  ON  HB<1> 

430  NEXT  I 

I  ! 

500  IF  N3*0  THEN  600 
510  FOR  1*1  TO  N3 

.  520  WRITE  ON  llC<I),  1 

530  NEXT  I 

;  f  : 

600  IF  N4-0  THEN  700 
610  FOR  1*1  TO  N4 
620  WRITE  ON  |1M<I> 

630  NEXT  I  j 

700  IF  N5*0  THEN  BOO 
710  FOR  1*1  TO  N5 
720  WRITE  ON  Uf(l) 

730  NEXT  I 

BOO  IF  N6*0  THEN  900 
BIO  FOR  1*1  T»  N*  i 

B20  WRITE  ON  ItGflV 
R30  NEXT  I 

900  CLOSE  1 
950  PRINT 

960  PRINT"THE  DATA  CAN  NOW  0E  RE-ENTERRED  BY  THE  DIRECT  COMMAND" 
970  PRINT**' LINK  /DATAENT/*  WHEN  YOU  WILL  BE  ASKED  FOR  THE  NAME." 
975  PRINT 

980  PRINT  *'D0  YOU  WANT  TO  ENO  OFF  NOW?** 

985  PRINT  IN  IMAGE  0*t"l .  YES.** 

990  PRINT  IN  IMAGE  BSl"2.  N0"i 

991  INPUT  X 

992  T0*1  i 

995  IF  X*2  THEN  LINK  /INTERROGATION/  ELSE  LINK  /ADAPTATION/ 

1000  RESTORE 
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1020  PRINT**THE  NAPE  YOU  WAVE  CHOSEN  IS 
ISIS  PRINT  “THE  LIST  or  RESERVED  NAPES 
1040  POR  I»l  TO  II 
1050  READ  U1 

1060  PRINT  IN  I  PAGE  CSlUl 
1070  NEXT  I 

1000  PRINT  „ 

moo  PR  tNT"CH0OSE  A  NEW  NAME*  I 


RESERVED.** 

ISi" 


1100  RESTORE 
1110  60  TO  60 


| 

>1 

■  \ 
\ 
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5.  /UATAENT/ 

to  STRING  U 

SO  PRINT  "UNDER  WHAT  PILE  NAME  IS  Y0UR  COMMAND  SAVED?" 

SO  INPUT  U 
100  VAR*ZERO 

110  INTEGER  N2#N3*N4*N5»N6#TO 

ISO  OPEN  U#  INPUT*  1 

130  ON  ENDFILEC I >  GO  TO  900 

200  INPUT  FROM  1 tN2*N3»N4*N5#N6*T0 

210  STRING  D<16>#  B<N2*I  >*C<N3»I  >.M<N4-M  >»F<N5H  >*G<N6H  ) 


300  FOR  1*1  TO  16 

310  INPUT  FROM  J  IN  FORM  "R"lD<I> 

320  NEXT  1 

400  IF  N2*0  THEN  500 
410  FOR  1*1  TO  N2 

420  INPUT  FROM  I  IN  FORM  "R"»B<I> 

430  NEXT  I 

500  IF  N3*0  THEN  600  ] 

510  FOR  !*t  TO  N3 
520  INPUT  FROM  I  IN  FORM  "R"*C<I> 

530  NEXT  I 

600  IF  N4*0  THEN  700 
610  FOR  1*1  TO  N4 
620  INPUT  FROM  1  IN  FORM  "R"tM<I> 

630  NEXT  I 

700  IF  N5*0  THEN  BOO 
710  FOR  I*  I  TO  NS 
720  INPUT  FROM  I  IN  FORM  "R"|F<I) 

730  NEXT  I 

800  IF  N6*0  THEN  900 
810  FOR  1*1  TO  N6 
820  INPUT  FROM  I  IN  FORM  "R"|G<I1 
830  NEXT  I 

SX)0  AS*"#" 

910  BS*"  #" 

920  CS«" 

930  DS«" 

940  ES»" 

«,30  FS»" 

1000  CLOSE  I 

2000  T0*1 

2010  PRINT"D0  YOU  WANT  TOI" 

2020  PRINT  IN  IMAGE  BS|"1.  EXECUTE." 

2030  PRINT  IN  IMAGE  BS|"2.  SEE  A  SUMMARY." 

2C40  PRINT  IN  IMAGE  BS*"3.  OTHER"! 

2050  INPUT  X 

2060  IF  X*1  THEN  LINK  /EXECUTE/  ELSE  IF  X*2  THEN  LINK  /SUMMARY/ 

ELSE  LINK  /INTERROGATION/ 


#" 


#" 
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6.  /EXECUTE/ 

S  STRING  J#U0»HC5O) 

10  STRING  V* V0»V1 *V2»V3 

12  IF  DCtO*"!"  THEN  LOAD  /RESTRICT/ 

15  TO* 4  t** 

20  IF  D<  1 2>»"2"  THEN  L0AO  /COUNT/  ELSE  IF  DC|2>-"3"  THEN  LOAD 
/DURATION/  ELSE  IF  DCI8>-"4"  THEN  LOAD  /COUNT/  ELSE  IF 
DC18>-"5"  THEN  LOAD  /DURATION/  I**  INDICATES  SWITCH  NODE* 

25  D8-VAL<D(4n»D9aVAL<D<S>>  1  START  AND  END  DATES* 

30  IF  DC|6>«"1"  THEN  A1 -"A/C"  ELSE  A1 -"SQUADRON"  1  ** 

35  IF  0C|6Ja"l"  THEN  A8«"S3UADR0N"  ELSE  AB»"A/C"  !** 

4)  IF  DC! 6 >■"!"  THEN  AO-"ACDIR"  ELSE  A0-"SQDIR"  I** 

45  IF  DC  1 6  J ■"! "  THEN  SO-1  ELSE  SO-O  I  FLAG  WHETHER  TO  LINK  FILES  OR  NOT* 
50  PRINT"  ****** 

55  PRINT 

60  PRINT  "LIST  OF  QUALIFYING  EVENTS."  I** 

65  PRINT 

TO  PRINT”  **" 

100  OPEN  AO# INPUT* I 
110  INPUT  FROM  1 1  NO  *  MO 
180  STRING  KCNO) 

130  MAT  INPUT  FROM  1 tK 

140  CLOSE  1  I  DIR*  LOADED  AS  K 

200  FOR  10- I  TO  MO 

210  SI *0*S2«0*S3-0»S4«0  I  SI -WHETHER  PAST  INITIAL  DATE  OR  NOTl 

52- WHETHER  HAVE  CERTAIN  C-O  OR  POSSIBLE  C-8>  BEG.  OF  EVENT! 

53- WHETHER  HAVE  END  OF  EVENT  0R  NOT! 

54- WHETHER  INITIAL  OR  SUBSEQUENT  FILE. 

220  UO-KCIO)  (INITIAL  ENTRY  IN  DIR  LIST 

230  GOSUB  1000 

240  IF  T2-0  THEN  500  IGET  NEXT  FILE  IN  DIR  LIST. 

250  IF  SO-O  THEN  32-0* S3-0 

260  V-SU0STRCUO.K1+I.6)  1FILE  NAME 

270  GO  TO  700 

300  »*•  END  OF  DIR.  LIST 
310  NEXT  10 
380  GO  TO  600 

500  JO-VALtRI SHT CU0»I))*S4-1 
S10  IF  JO-O  TMEN  300 
520  UO-KCJO! 

530  GOSUB  1800 

S40  IF  T2-0  THEN  500 

550  V-SUBSTRCUO»Kt  *1*4)  IFILE  NAME 

560  G0  TO  TOO 

600  PR TNT 

610  PRINT  "EXECUTION  COMPLETE." 

620  PRINT"  ****" 

630  PRINT 

640  LINK  /INTERROGATION/ 
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700  OPEN  V#  INPUT*  I 

7 1 0  INPUT  FROM  HXI 

780  #N  CNDFILEd  >  00  T0  790 

730  11*0 

740  13*50 

750  FOR  12*1  TO  50 
760  INPUT  FROW  I  9  M < 1 2  > 

770  NEXT  18 

780  00  TO  1000 

790  13*18-1 

800  IF  13*0  THEN  900 

810  00  TO  IOOO 

900  IF  S0*0  THEN  SI *0«S2*0« 33*0 
910  I ♦#  ENO  0F  FILE 
980  CLOSE  I 
930  00  TO  500 


1000  FOR  18*1  T0  13  ISiZARCH  PAGE.  PASS  INITIAL  DATE 

1010  Il«im 

1080  IF  I1»XI  THEN  900 

1030  IK  $1*1  THEN  1200  I ALREADY  PAST 

1040  IK  LEFTfH(I2)#l  >*M6**  THEN  1080 

1050  IF  VAL<SU8STR<H<I2)*8#4n«D8  THEN  1080 

1040  IF  D<7)*»lw  THEN  1100  ELSE  Q0SU8  2000 

1070  IF  T1 *1  THEN  1100 

1080  NEXT  18 

1090  G0  T0  740 

1100  Sl«l  IPAST  STARTING  DATE 

1110  IF  S4*0  THEN  SOOO  ELSE  5100  t**  HEADING 

1180  GO  TO  1840 

1200  IF  S2«1  THEN  1400  I0L0CK  T0  FIND  BEG  OF  EVENT 
1810  IF  LEFT«H<I2>»1  >■"«*•  THEN  1400 
1880  IF  D(7  J«'M “  THEN  1840  ELSE  G0SUB  2000 
1830  IF  Tl *0  THEN  1860 

1840  D1  *S(IBSTR<H(  12  >  *2* 4)»E1  *SU8STR(H<  12) »  1 0# 4>»$8*8 
1250  G0  TO  1080 

1260  IF  S2*2  THEN  S8-1  ELSE  IF  S2*0  THEN  1080 


1300  1*4  BRANCH  TO  /RESTRICT/ 

1310  I**  CERTAIN  BEG.  0F  EVENT 
1380  50  TO  1080 

1400  IF  LEFTfH<!2)»! >*"6"  THEN  IF  S8-0  TIEN  1080  ELSE  1600 
I  BLOCH  TO  SEEK  END  OF  EVENT. 

1410  IF  D(7  >*”1 "  THEN  1430  ELSE  GOSUB  8000 

1420  IF  71*0  THEN  1080  1  END  NOT  FOUND 

1430  F| *SU8STR<H< 12). 2*41. G1 *SUBSTR (HI 12 >« 6»4)*S3*1 

1450  IF  D<6  )***1"  THEN  D2*FI  ELSE  D2*DI 

1460  IF  VAL<D2>»D9  THEN  900  1T00  LATE 

1 46S  Gfc  TO  1500 

1470  Dt *SUBSTR(H(I2)«2»4>«E1 *3UBSTR(H<I2)« I0»4>«S2*2 
1480  GO  TO  1080 
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1500  »**  BRANCH  TO  /RESTRICT/ 

IS 10  00  TO  6000  16*  END  Or  EVENT. 

1530  S3-0 
1560  GO  TO  1470 

1600  IP  32-2  THEN  S2-1  ELSE  IP  S3«0  THEN  1080 
16)0  i **  BRANCH  TO  /RESTRICT/ 

1620  (**  PLT  CARD 
1630  GO  TO  1080 

1800  T2-0  f SUB  TO  check  ip  a/c  and  so.  in  desired  lists 

1810  HO* INDEX <U0»*,-*M>#K1  •  INDEX <U0»M/"> 

1820  VO«LEPT<UO.KO-n.Vl«SUB5TRCUO.KO>I.Kl-KO-l)  I  NAMES  OP  A/C  4  SO. 
1830  IP  AO^’SODIR"  THEN  V2-V1  ELSE  V2-V0  INANE  OP  A/C 
1840  IP  AO»"SOD!R"  THEN  V3-V0  ELSE  V3-VI  1  NAME  OP  SO* 

1850  IP  DC2>-'*1  **  THEN  1900 
i860  POR  Ml  »1  TO  N2 
1870  IP  V2-BCM1)  THEN  1900 
1880  NEXT  Ml 
1890  RETURN 

1900  IP  DC3>-*M"  THEN  1950 

1910  FOR  MI-1  TO  N3 

1920  IP  V3-CCMI)  THEN  1950 

1930  NEXT  Ml 

1940  RETURN 

1950  T2-1 

I960  RETURN 

2000  1CHECKS  WUC  AGAINST  MCN4) 

2010  Tl-l 

2030  W-SUB$TRCHCI2)#2S. 5) 

20 AO  P8R  MS-1  TO  N4 
2050  IP  W-MCM2)  THEN  Tl-0 
2060  NEXT  M2 

2070  IF  DC7J--3"  THEN  RETURN 
2080  Tl-l-Tl 
2090  RETURN 

5000  PRINT 

5010  PRINT  All*'  NUMBER  "rV0»M»" 

SOSO  PRINT 

5030  IP  DC  1 6) -"2"  THEN  “RINT  IN  IMAGE  t*lA24-  NUMBER  "♦l/l*"!" 

5040  PRINT 

5050  PRINT"BEG .  BEG.  ENO  E.  D" 

5060  PRINT-DATE  TIME  DATE  TIME" 

5070  PRINT 
5080  GO  TO  1240 
5100  PRINT 

5110  PRINT  IN  IMAVT  B$|A2*"  NUMBER  ••+VI+Ml" 

5120  PRINT 
51 30  GO  TO  1240 

6000  PRINT  IN  IMAGE-SETS  XXXX  XXXX  XXXX"tDI .El.FI.Gl 

6010  GO  TO  1470 


7. 


/RESTRICT/ 


ie  T3*0«X«0  t T3*RESTRICTI0N  FLA6«X  RESTRICTION  VARIABLE 
80  G03UB  9000 

1300  X«0»T3>0  I  INITIALISE  RESTRICTION 

1500  ON  T3  60  T0  10000* 10010* 10080* 10030* 10040* 10050 

1530  S3"0*X*0 

1610  ir  D<9>«"2"  THEN  8800  ELSE  8000 
8000  IF  DC  10 >■**!"  THEN  8060 
8010  WaSUBSTRCHC I2)*21*3) 

8020  F0R  J*1  TO  N5 
8030  IF  W>FCJ>  THEN  8060 
80  AO  NEXT  J 
8050  60  T0  1620 

8060  IF  DC9>«,,3"  THEN  8100  ELSE  X»X*1 
8070  G0  T0  1620 

8100  X*X* VAL<SUBSTR<W<  12)* 1 7*2) 7+VAL <SUBSTR<H<  I2)*19*2>  >/60 
8110  60  T0  1620 

8200  IF  DC10)*"tM  THEN  8300  ELSE  tF  DCI0>«"3"  THEN  8400 
8210  F0R  J*0  T0  4 
8220  F0R  14*1  T0  NS 

8230  IF  SUBSTR<H<I2>»24*3*J*1 )-F<I4>  THEN 
X«X«VALCSUBSTR(HCI2>*25^34J*2>) 

8240  NEXT  14 
8250  NEXT  J 
8260  60  T0  1620 

8300  X«X*VALCSUBSTR<H(12>#25«3*J*2>>  FOR  J»0  T0  4 
8310  60  TO  1620 

8400  FOR  J*0  TO  4 
8410  FOR  14  *1  TO  N5 

8420  IF  S<JSSTR<H<  12  )«£4+3*J»  I  >«F<I4>  THEN  8450 
8430  NEXT  14 

8440  X»X*VAL<  S<JBSTR<H<  I2)*25+3*J*2)  ) 

8450  NEXT  J 
8460  00  TO  1620 

9000  I9»INDEX<D<1 1 )*M<M> 

9010  IF  19*0  THEN  9100 
9020  I9«INDEX<D<1 1 )»H»M) 

9030  IF  19*0  THEN  9200 
9040  I9*INDEX<D<1 1  >*"•••) 

9050  X0«VAL <S<JBSTR<D<  11  >.  19+1)  ) 

9060  T3«l  lX»XO 
9070  RETURN 

9100  I8*INDEX<D<I  1  >**•*••) 

9110  IF  18*0  THEN  9300 
9120  I8»!NDEX<D<1 1  >*••»••> 

9130  IF  18*0  THEN  9400 

9140  X0«VAL<5UBSTF:<0<1  1  >*  19*1  >> 

9150  T3*2  1X*X0 

9160  RETURN 
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9200  I &■  INDEX (0(1  1  )#"■*') 

9210  IF  18*0  THEN  9500 
9220  X0aVAL(SU85TR(D( 11)#19*1>) 
9230  T3-3  IX*X0 
9240  RETURN 

9300  IF  18*19  THEN  19«I8 
9310  X0-VAL(SUBSTR(0(ll>»I9«m 
9320  T3*4  f X**XO 
9330  RETURN 

9400  IT  18*19  THEN  19*18 
9410  X0*VALf SUfc'STR (D(lt)«I9+l)> 
9420  T3«5  !Xa=X0 
9430  RETURN 

9500  IF  18*19  THEN  I9-IR 
9510  X0*VAL(SU9STR(D(11>« 19*11) 
9520  T3*6  ! X»aX0 

9530  RETURN 

10000  IF  XaXO  THEN  1510  ELSE  1530 

10010  IF  XaXO  THEN  1S1U  ELSE  1530 

10020  IF  X*X0  THEN  1510  ELSE  1530 

10030  IF  Xa*XO  THEN  1510  ELSE  1530 

10040  IF  X<*XO  THEN  1510  ELSE  1530 

10050  IF  X*aX0  THEN  1510  ELSE  1530 


8,  /COUNT/ 

IS  HI ■0»T0»5*H2»O 

20  IF  D<12>*"4"  THEN  LOAD  /AV-CT/ 

21  IF  D<13>«‘*t"  THEN  A4«*'EVENTS"  ELSE  IF  D<13>»**2"  THEN  A4«"FLIGHTS" 

ELSE  A4•“LAN0I^KSS,, 

22  IF  D<16>»**1**  THEN  B4«"  EACH  EVENT***  ELSE  IF  D<!6>«**2**  THEN  B4 

■**  EACH  A/C."  ELSE  IF  D<16>«"3"  THEN  B4*M  EACH  SQUADR0N.*’  ELSE 
84«**  ALL  OCCURENCES*’* 

30  IF  D<16>»**3"  THEN  A1 ■"SQUADR0N"  ELSE  A!»**A/C" 

35  IF  D(I4)«"3''  THEN  A2«"A/C**  ELSE  A2»**SOUAOR0N’* 

40  IF  D<  1 6  >*"3**  THEN  A0«"SQDIR"  ELSE  AO»**ACDIR" 

45  IF  D<  1 6)*’*3"  THEN  SO-O  ELSE  S0«l 

60  PRINT"THE  COUNTS  OF  THE  QUALIFYING  "|A4I"  F0R'*tB4 
75  IF  D<16)-"l"  THEN  G0SUB  5000  ELSE  IF  D<I6»«"2'*  THEN  G0SUB  5100 
ELSE  IF  0(1«)»"3"  THEN  G0SUB  5200  f HEADING 

300  IF  D<16>*"2"  THEN  6100  ELSE  IF  D<16)«"3"  THEN  6200 
610  IF  Of  1 6) •**4"  THEN  6300  ELSE  PRINT"EXECUTI0N  COMPLETE. »» 

1110  1 

1510  IF  D<t  3>«**1**  THEN  HI«H1*1 

1520  IF  D< 1 6)«"1 "  THEN  6000  ELSE  H1»HI*H2 

1530  S3«0,H2«0 

1620  IF  D<  1 3>*"2"  THEN  4000  ELSE  IF  D<t3>e"3"  THEN  4100 
4000  IF  D<14)="|"  THEN  4070 
4010  U*SU8STR<M< I2)*2I*3) 

4020  F0H  1 4*1  T0  N6 

4030  IF  U*G< 14)  THEN  IF  D<I4>«"2"  THEN  4070 
4040  NEXT  14 

40  50  IF  D<14)***3"  THEN  H2"M2«| 

4060  G0  T0  1630 
4070  H2-H2*l 
4080  G0  T0  1630 

4100  IF  D<  1 4>*"2"  THEN  4200  ELSE  IF  D<14>»"3"  THEN  4300 
4110  H2«H2+VAL <SUBSTR<M<  I2)»2S+3*J»2)  >  F0R  J»0  T0  4 
4120  G0  T0  1630 
4200  FCR  J=0  T0  4 
4210  FOR  14=1  T0  N6 

4220  IF  SUASTR<H<12)»24*3*J«1  )*G(I4)  THEN  H2*H2*VALf  SUBSTRtHC  I2)*25*3+J2 

4230  NEXT  14 

4240  NEXT  J 

4250  G0  T0  1630 

4300  F0R  J«0  T9  4 

4310  F0R  I 4» 1  T0  N6 

4320  IF  SUBSTR<H< 12) «  24+34J* 1 ) «G( I  4)  THEN  4350 
4330  NEXT  14 

4340  N2«H2*VAL<SURSTR<H< 121*25+ 3 *J«2>) 

4350  NEXT  J 
4360  60  T0  1630 

5000  PRINT**  A/C  SQUAD*  EVENT  C0UNT" 

5010  PRINT"  NUMBER  NUMBER  BEG.  DATE  0F” 

5020  PRINT"  < ENDING)  "|A4 

5030  RETURN 


3100  PRINT” 
5110  PRINT” 
5120  PRINT” 
5130  PRINT 
51  40  RETURN 


A/C 

number 


5200  PRINT” 
5210  PRINT” 
3220  PRINT" 
5230  PRINT 
5240  RETURN 


SQUADRON 

number 


6000  PRINT  IN  IMAGE" 

V8*V3#0I»N2 


6010  M2»0 
6020  00  T0 
6100  PRINT 


1530 

IN  IMAGE” 


6110  HI-0 
6120  G0  TO  3»0 


^200  PRINT  IN  IMAGE 
6010  Hl-0 
6220  GO  TO  310 


NUMBER  OP” 
QUALIFYING” 
**t  A4l"*” 


NUMBER  OP” 
QUALIFY ING" 
«|A4»”*” 


nmi 


m 


xxxx 


xxxxx* 


XXXX"tV2#Ml 


111 


XXXt”»V3*Hl 


6300  PR1NT”THE  TOTAL 
6310  GO  TO  620 


XXXX'*t 


MMO  Qf  QCCUQENCLS  >H  QUALIFY.®  «««*  ,S 


/DURATION/ 


IS  HI «O*T0«6 

20  IF  0CI2>b"5"  THEN  LOAD  /AV-DUR/ 

21  IF  DC 1 3 Jb"1 "  THEN  A4“"DURATt0N  0F  EVENTS"  ELSE  A4b"FLIGKT  TIME" 

22  IT  0CI6>b"1«  THEN  *A»"EACM  EVENT."  ELSE  If  DCI6)»"2"  THEN 

B 4b "EACH  A/C."  ELSE  IE  DC|6J»"3"  THEN  B4a"EACH  SQUADRON."  ELSE 
B 4« "ALL  EVENTS." 

23  ir  D<I3)b"1"  THEN  A3b"EVENTS."  ELSE  A3b**FLIGHTS»" 

30  IE  DC  I 6>b"3"  THEN  A I «"SQUADR0N"  ELSE  A|b»A/C" 

35  IF  Ot 1 6>»"3"  THEN  A2«"A/CM  ELSE  A2b"SQUADR0N" 

40  IF  DC  1 6>«"3"  THEN  AO*"SeDIR"  ELSE  AOb"ACDIR" 

45  IF  DC  1 6>*"3"  THEN  S0«0  ELSE  IF  DC16>b"I"  THEN  S0«0 
<0  PRINT  "THE  ACCUMULATED  "♦A4+"  F0R  "->84 
Tl  PRINT 

75  IF  D<16)b"I"  THEN  5000 

76  PRINT 

300  IF  DC16)«"2"  THEN  6100  ELSE  IF  DCI6»b"3«  THEN  6200 
610  IF  DCI6>«"4"  THEN  6300  ELSE  PRINT  "EXECUTION  COMPLETE." 

1110  IF  DC16»-"2"  THEN  5100  ELSE  IF  DC16>b«3«  THEN  5200 

1510  IF  D(I3)b"1"  THEN  4000  ELSE  HlaMt«-H2 

1520  IF  DC  1 6>b"1 "  THEN  6000 

1530  H2«0 

1530  H2aO 

1620  IF  DC13)b"2"  THEN  4200 
4000  H2-VALCF1I-VALCDI ) 

4010  IF  H2>b635  THEN  M2-H2-634 

4020  Y9bVAL<RIGHTCE1#2>)»29bVALCLEFTCEI.2>) 

4030  Y8«VALCRIGHTC61 #2) )»28«VALCLEFTCG1 »2>  >*24*H2 

4040  IF  Y8»bY9  THEN  4060 

4050  Y8bYR*60.28bZ8-1 

4060  H2bZ8-Z9+CY8-Y9)/60 

4070  HI bHI *H2 

4080  GO  TO  1520 

4C00  IF  DC  1 4)b" 1 "  THEN  4350 
4210  W«SUBSTRCHC 12 J  *21.3) 

4220  FOR  J«l  TO  N6 
4230  IF  W«GCJ>  THEN  4300 
4240  NEXT  J 

4250  IF  DC  1 4)  »"3*'  THEN  4350  ELSE  1630 
4300  IF  DC  1  4)b”2**  THEN  4350  ELSE  1630 

4350  W2*M2*VALCSUBSTRCH(  12  >  »  1  7>2)  I4VALCSUBSTRCHC 12  )»  19*21  )/60 
4)60  GO  TO  1630 

5000  PRINT  "  A/C  SQUAD.  BEG.  DATE  ACCUM.  DURATION" 

3005  PRINT  "  CENDING)  DAYS  HOURS" 

3010  PRINT 
5020  GO  TO  76 
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$100 

31 10 

PRINT"  NUMBER  OF  QUALITY I NO  "»A3  > 

3120 

PRINT"  DAYS  HOURS" 

3130 

PRINT 

5140 

60  TO  1120 

$200 

PRINT"  SQUADRON  ACCUM.  DURATION'5 

5210 

PRINT"  NUMBER  OP  QUALIFYING  "(A3  ‘ 

S22C 

3230 

5240 

6000 

PRINT"  DAYS  HOURS"  1 

PRINT 

GO  TO  1120 

H4-H2  HOD  24«M3-FlX<H2/24>  J 

6010 

PRINT  IN  IMAGE"  XXXXXX  XXX  XXXX  XXXX  XX«X"«  j 

V2#V3#DI  >H3»H4  : 

6020 

H2«0 

60  30 

GO  TO  1520  ] 

6100 

H4-HI  MOD  24»H3-FlX<Ml/24> 

!  6110 

PRINT  IN  IMAGE"  XXXXXX  XXXX  XX.X"tV2*H3»H4 

6120 

HI  *0  j 

6130 

GO  TO  310 

[• 

6200 

H4*H1  MOO  24#H3»FIX<Hl/24) 

6210 

PRINT  IN  IMAGE"  XXX  XXXX  XX«X"tV3«H3»H4 

20 

HI  **0 

6230 

GO  TO  310 

6300 

PRINT"THE  ACCUMULATED  DURATION  OF  ALL  QUALIFYING  "»A3»"  IS"»HI 

f.  6310 

PRINT  3 

6320 

, 

GO  TO  620 

• 

■. 

; 

| 

' 

1 

) 

", 
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10.  /AV-CT/ 

80  T0>7»N9*0 

81  IF  D<13)a"l"  THEN  A4a"FLIGHTS"  ELSE  IF  D<l3Ja"2"  THEN 
A4»'*LANDINGS"  ELSE  A4a"EVENT3" 

28  IF  D(t6 Ja"| "  THEN  B4a"  PER  EVENT**'  ELSE  IF  D<16Ja»2"  THEN  B4> 

**  PER  A/C**'  ELSE  IF  D<16»a"3"  THEN  B4b»  PER  SQUADRON* "  ELSE 
84>'*  IN  ALL  OCCURENCES*" 

23  IF  Oft  5>a"5"  THEN  B4a"A/C"  ELSE  B4»" EVENT" 

84  IF  0(1 5>a"|"  THEN  C4»"."  ELSE  IF  D<I5Jb»8"  THEN  C4«»A/C." 

ELSE  IF  D(1S)>"3"  THEN  C4a"SQUADR0N."  ELSE  IF  D<I5Jb"4» 

THEN  C4a"A/C  IN  SQUADRON."  ELSE  IF  D<I5Ja"S"  THEN 
C4a"SQUADR0N." 

86  IF  0(I5)«"IM  THEN  E4a""  ELSE  E4a»  FOR  EACH  " 

30  I 
35  I 

40  IF  D<lS)a»l"  THEN  AOa»ACDIR"  ELSE  IF  DC15>*»2"  THEN  AOa"ACDIR" 
ELSE  AO*"SQDIR" 

4S  IF  D< 1 5)a"l"  THEN  SOa|  ELSE  IF  THEN  S0*1  ELSE  S0«0 

60  PRINT"THE  AVERAGE  NUMBER  OF  "»A4l"  PER  "«S4«E4tC4 
75  1 

300  IF  D< 1 5)»"8"  THEN  6100  ELSE  IF  D<15Ja»3»  THEN  6800  ELSE  IF 
D(15)a"5"  THEN  6800 

610  IF  DO  5>a"l "  THEN  6300  ELSE  PRINT  "EXECUTION  COMPLETE." 

910  IF  DO  5)a"4"  THEN  6100  ELSE  IF  D<15)«"5"  THEN  N9aN9*l 
1110  IF  S4>0  THEN  IF  D<I5Jb"8"  THEN  5110  ELSE  IF  DOS)a"3" 

THEN  5800  ELSE  IF  0O5)«"4"  THEN  5100  ELSE  IF  DOS>»"5" 

THEN  5300 

1510  IF  D03)a«3»  THEN  HlaHl^l  ELSE  H1bH1+H2 
1520  IF  VAL<D<1SJJ<5  THEN  N9bN9*I 

1620  IF  D<13J-"1"  THEN  4000  ELSE  IF  D<13Ja"2"  THEN  4100 

5100  PRINT"  SQUADRON  NO. I  "IV3 

5110  PRINT"  A/C  AVERAGE  NO.  OF" 

5120  PRINT”  NUMBER  "*A4l"  PER  EVENT" 

5130  GO  TO  1120 

5200  PRINT"  SQUADRON  AVERAGE  NO*  OF" 

5210  PRINT"  NUMBER  "|A4»"  PER  EVENT" 

5220  GO  TO  1120 

6100  IF  N9«0  THEN  6150 

6110  PRINT  IN  IMAGE"  IXXXXX  XXX. XX"lV8*HI /N9 

6120  Hl«0*N9a0 
6130  GO  TO  910 

6150  PRINT  IN  IMAGE"  XXXXXX  N0NE"rV2 

6160  HI aO*N9«0 
6170  GO  TO  910 

6800  IF  N9a0  THEN  6250 

6210  PRINT  IN  IMAGE"  XXX  XXX.XX"lV3*Hl /N9 

6220  HI %0*N9<0 
6230  GO  TO  910 

6250  PRINT  IN  IMAGE"  XXX  N0NE"lV3 

6860  HI>0«N9a0 
6270  GO  TO  910 
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11.'  /AV-Dtffi/  . 


00  TO«0«N9«O 

01  ir  VALCDCI5>><5  THEN  A4«"AVERAGE  FLIGHT  DURATION  PER  EVENT  “ 

ELSE  A4a"AVERAGC  DURATION  OP  EVENTS  " 

22  IF  DC  1 5>a"l  '*  THEN  B4a"*"  ELSE  IF  DCI5>a"fc"  THEN  B4a"F0R  EACH  A/C." 
ELSE  IF  DCI5)-"3"  THEN  B4«"F0R  EACH  SQUADRON."  ELSE  IF  DCI5>a«4" 
THEN  §4a"F0R  EACH  A/C  IN  SQUADRON." 

23  IF  D< I SJa^S'*  THEN  B4a"F0R  EACH  A/C."  ELSE  IF  DCIS)a"6"  THEN 
B4a"F0R  EACH  SQUADRON."  ELSE  IF  DCl5»a«7"  THEN  B4a 

••FOR  EACH  A/C  IN  SQUADRON.,"  ELSE  B4a"." 

40  IF  DCl5»a"ij"  THEN  AOa"SQDIR"  ELSE  IF  Df|S5^'4"  THEN  AOaMSQOIR,‘ 

ELSE  IF  DC  1 5>a"6"  THEN  AOa**SQDIRM  ELSE  IF  DCl5>a"7"  THEN  AO-"SQOIR" 
ELSE  AOa**ACDIR” 

60  PRtNT  A4IB4 
70  1 

300  IF  DClSla"^"  THEN  6000  ELSE  IF  DCl5>a"3"  THEN  6100  ELSE 

IF  DC  1 57a**5"  THEN  6000  ELSE  IF  DC15>«"6"  THEN  6100 

610  IF  DC1  S)«,,l '*  THEN  6300  ELSE  IF  DC15>a"B"  THEN  6300  ELSE 

PRINT  “EXECUTION  COMPLETE. **  1 

910  IF  DC  1 5)«"'4"  THEN  6000  ELSE  IF  DC!5>a“7“  THEN  6000 
IMO  IF  S4a0  THEN  IF  0Cl51a"2»  THEN  5010  ELSE  IF  DCI5>»"3"  THEN 

5100  ELSE  IF  DC  1 5)a"4"  THEN  5000  ELSE  IF  OClS>a"S»  THEN  5310 
ELSE  IF  DC15»a“6“  THEN  5300  ELSE  IF  DCIS»a"7»  THEN  5300 
1510  IF  VALCDC 1 5) )>4  THEN  1 4000  ELSE  HiaHl*H2 
1520  N9«N9+1  | 

1620  IF  VALCDC I 5>>«S  THEN  4200 
5000  PRINT'*  SQUADRON  NO*  I  “lV3 
5010  PRINT"  A/C  AVERAGE" 

5020  PRINT"  NUMBER  FLIGHT  DURATION" 

5030: PRINT"  PER  EVENT" 

5040  PRINT"  DAYS  HOURS” 

5050  GO  TO  1240 

5100  PRINT"  SQUADRON 
5110  PRINT"  NUMBER 
5120  PRINT" 

5130  PRINT" 

5140  GO  TH  1240 

5200  PRINT"  SQUADRON  NO. I  "tV3 
5210  PRINT"  A/C  AVERAGE" 

5320  PRINT"  NUMBER  DURATION  OF  EVENTS" 

5330  PRINT"  DAYS  HOURS"  , 

5240  GO  TO  1240 

5300  PRINT"  SQUADRON 
5310  PRINT"  NUMBER 
5320  PRINT"  , 

5330  GO  TO  1240 

6000  IF  N9»0  THEN  6050  ELSE  HlaHl/N9 
6010  M4aMI  MOD  24.H3aFIXCHI /24> 

6020  PRINT  IN  IMAGE"  milt  XXX  XX.XX"tV2*H3«M4 

6030  HI *0»N9aO 
6040  GO  TO  310 


AVERAGE" 

DURATION  OF  EVENTS" 
DAYS  HOURS" 


AVERAGE" 

FLIGHT  DURATION" 
PER  EVENT" 

DAYS  HOURS" 
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6050  PRINT  IN  IMAGE" 
<060  HI-0/N9-0 
6070  G0  TO  310 


xum 


N0NE"lV8 


6100  If  N9 JO  THEN  6150  ELSE  H1-HI/N9 
6JI0  H4»HI  MOD  24* H3«E I X f Ml /24> 

6180  PRINT  IN  IMAGE"  XXX 
6130  HI  aO*N9aO 
6140  G0  T0  310 


XX.XX"tt/3«H3*H4 


6150  PRINT  IN  IMAGE"  XXX 
6160  HI a0#N9a0 
6170  GO  T0  310 


N0NE"tV3 


6300  IE  N9«0  THEN  6350*  ELSE  Ht*H|/N9 
6310  H3»EIX<HI/84>,H4-HI  M0O  84 
6320  PRINT"TME  "fA4t"a  "IM3l"  DAVS»"JH4t" 
6330  G0  T0  620 


HOURS •" 


6350  PRINT"N0  APPLICABLE  DATA 
6360  G0  TO  620 


